Help for this page

Select Code to Download


  1. or download this
            ...
        my ($title, $track, $artist);
...
          ($title, $track, $artist) = $mp3->autoinfo(); 
        };
        ...
  2. or download this
         my $newname = File::Spec->catfile($mp3dir[$i],"$track. $artist - 
+$title.mp3");
     my $oldname = File::Spec->catfile($mp3dir[$i],$mp3file[$i]);
    rename($oldname, $newname)
        or die "Couldn't rename '$oldname' to '$newname': $!";