Perl - skrypt zmieniaj

[Hardiel]

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.

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);
 }