Forum Moderators: open
foreach my $file (@ARGV) {
next if ($file!~ /\.wma$/i);
my $base = $file; $base =~ s/\.wma$//i;
system "mplayer \"$file\" -ao pcm -aofile \"$base.wav\"";
system "oggenc \"$base.wav\" ";
unlink("$base.wav");
print "$base.wma converted to ogg.\n";
}
:-)
Can't take credit for this one I'm afraid, just Googled wma2ogg!