Perl - skrypt zmieniający rozszerzenia MP3 na mp3
: 27 lipca 2009, 14:35
Ostatnio podczas ściągania albumów często natrafiały mi się pliki audio z rozszerzeniem .MP3. Co prawda nie robi to różnicy ale jak dla mnie wizualnie brzydko to wygląda i lepiej zachować pewien porządek sprowadzając się do .mp3. Więc poświęciłem kilka minut na fajną zabaweczkę, która w parę sekund ,,przemieni'' rozszerzenia.
Może komuś się przyda.
Może komuś się przyda.
Kod: Zaznacz cały
#!/usr/bin/perl
my $patch = $ARGV[0];
my $one = $ARGV[1];
my $two = $ARGV[2];
if(length($patch)==0 || length($one)==0 || length($two)==0){
print "Usage : dir.pl /home/bolek txt php\r\n-> On this change all .txt to .php\r\n";
}
else {
opendir(DIR, $patch) or die $!;
while (my $file = readdir(DIR)) {
chomp if /\n$/;
if ($file =~ /(.*?).$one$/) {
$in = "$1.$one";
$on = "$1.$two";
chdir($patch);
`mv $in $on`;
}
}
closedir(DIR);
}