Forum général.général toaster irate

bonjour,

pour les accros d'iRate, un petit script qui crée un répertoire
backup ne contenant que les tracks de rating > 0 (tous sauf
"This sux"). Ca permet de graver plus facilement ;)
il crée de liens durs, donc ne prend quasi rien sur le disque.

y a peut-être plus court, mais en attendant

chimay

#! /usr/bin/perl

# absence de bugs non garantie

$HOME = $ENV{'HOME'};
open(T,"$HOME/irate/trackdatabase.xml") || die "~/irate/trackdatabase.xml : $!";
$t = $t . $_ while(\<T\>);

@tracks = split(/\/></,$t);

$n = 0;

foreach (@tracks) {

($file) = /file="([A-Za-z0-9_%\.\/\-\s]*)"/;
($rating) = /rating="([A-Za-z0-9_%\.\/\-\s]*)"/;
($title) = /title="([A-Za-z0-9_%\.\/\-\s]*)"/;
($artist) = /artist="([A-Za-z0-9_%\.\/\-\s]*)"/;
($url) = /url="([A-Za-z0-9_%\.\/\-\s:]*)"/;

if ($file && $rating > 0.0) {
$file =~ s:\s+:\\ :g;

print "########### $title ($artist) ###########\n";
print "URL : $url\nFichier : $file\nCote : $rating\n\n";
print "Statut : backup\n";
print "Copy failed !!!!!!!\n" if ( system("cp -l $file $HOME/irate/backup > /dev/null 2>1") );
} else {
print "Statut : dropped\n";
}