Løb filerne igennem, læs første linie og omdøb evt. filnavn

Spørgsmålet der førte mig hertil kan ses her (som lidt baggrundsviden):
http://www.eksperten.dk/spm/498383

mp3 filerne har LAME3.93 i headeren...

Jeg er selv kommet så langt:

#!/usr/bin/perl

use FileHandle;
use strict;
#use warnings;
my $filename ="/tmp/test";
my $line;
my $fh = new FileHandle("< $filename");
my $path;
while (<$fh>) {
  $line = $_;
    if ($line =~ /lykke/i) {
        chomp($line);
        $path=$line;
        $path = substr($path, 0, - 1);
        $path = "$path"."/";
#      print "$path\n";
    }
  my $file = "$path"."$line";
#  print $file;
  my $musicFile = new FileHandle("< $file");
  while(<$musicFile>){
      my $musicLine = $_;
      if ($musicLine =~ /LAME3.93/i) {
          print $file;
## Omdøb filen til $file.mp3
      }
  }
}

exit 0;


Men jeg ved ikke lige (endnu hvordan jeg laver omdøbningstrinnet

Nu er jeg kommet så langt:

#!/usr/bin/perl

use FileHandle;
use strict;
#use warnings;
my $filename ="/tmp/test";
my $line;
my $fh = new FileHandle("< $filename");
my $path;
while (<$fh>) {
  $line = $_;
    if ($line =~ /lykke/i) {
        chomp($line);
        $path=$line;
        $path = substr($path, 0, - 1);
        $path = "$path"."/"; ##Make it a valid unit path to the current director
y we're in
#      print "$path\n";
    }
  my $file = "$path"."$line"; ##Get the absolute path
#  print $file;
  my $musicFile = new FileHandle("< $file");
  while(<$musicFile>){
      my $musicLine = $_;
      if ($musicLine =~ /LAME3.93/i) {  ## If it's a mp3 file
#        print $file;
          my $newMusicFileName = substr($file, 0, -4); ##Remove ogg extension
          $newMusicFileName = "$newMusicFileName"."mp3"; # give mp3 extension
          print "$newMusicFileName\n"; # a checkup
          unless(rename($file, $newMusicFileName)) ##Save as new file
          {print "Something did not work as supposed to!!!\n"};
          last; ## Breaking out of Loop
      }
  }
}

exit 0;


Men min rename går galt!! Jeg har ikke lige nogen ide om hvorfor. Kan det skyldes skrive/læse rettigheder? Jeg kører scriptet som ejer af bibliotekerne (og filerne!) og bare for en sikkerheds skyld har jeg også haft chmod 777 alle filerne.
Det virker bare stadigvæk ikke!
Nogen ideer?

Det var pga. der var en newline (eller noget andet?) gemt i slutningen af det oprindelige filnavn:

use FileHandle;
use strict;
#use warnings;
my $filename ="/tmp/test";
my $line;
my $fh = new FileHandle("< $filename");
my $path;
while (<$fh>) {
  $line = $_;
    if ($line =~ /lykke/i) {
        chomp($line);
        $path=$line;
        $path = substr($path, 0, - 1);
        $path = "$path"."/"; ##Make it a valid unit path to the current director
y we're in
#      print "$path\n";
    }
  my $file = "$path"."$line"; ##Get the absolute path
#  print $file;
  my $musicFile = new FileHandle("< $file");
  while(<$musicFile>){
      my $musicLine = $_;
      if ($musicLine =~ /LAME3.93/i) {  ## If it's a mp3 file
#        print $file;
          my $newMusicFileName = substr($file, 0, -4); ##Remove ogg extension
          $newMusicFileName = "$newMusicFileName"."mp3"; # give mp3 extension
          print "$newMusicFileName\n"; # a checkup
          $file = substr($file, 0, - 1);
#        print $file;
          unless(rename($file, $newMusicFileName)) ##Save as new file
          {print "Something did not work as supposed to!!!\n"};
          last; ## Breaking out of Loop
      }
  }
}

exit 0;