work 폴더 내의 모든 mp4파일의 확장자를 mp3로 바꾸는 펄 스크립트

#!/usr/local/bin/perl -w

use warnings;
use File::Copy qw(move);
 
opendir (DIR, "/work/");

@name = readdir(DIR);  # all names

@r_name = @name[0..$#name];
for (@r_name) {
   s/mp4/mp3/
}

print "@name\n";
print "@r_name\n";

for($i = 0; $i < $#name; $i++ )
{
#rename $name[$i], $r_name[$i];
move $name[$i], $r_name[$i] || die "Can't rename\n";
}

closedir(DIR);