|
|
发表于 2006-2-4 22:51:16
|
显示全部楼层
#!/usr/bin/perl -w
use strict;
foreach my $file (@ARGV) {
next if ($file !~ /\.wma$/i);
my $base = $file; $base =~ s/\.wma$//i;
system "mplayer \"$file\" -ao pcm -ao pcm:file=\"$base.wav\"";
system "lame -m s -b 128 -h \"$base.wav\" \"$base.mp3\"";
unlink("$base.wav");
print "$base.wma converted to mp3.\n";
} |
|