wma2ogg

WMA>OGG átalakítót kerestem, és ebbe a Perl szkripte futottam bele. A megváltozott mplayer szintaxis miatt kis módosítást igényelt, de azután tökéletesen működött.
Talán zene infójának átmásolását az új OGG-ba is meg lehetne valahogyan oldani.
Na, most átteszem az összes wma-mat igazi hangformátumba. =)

#!/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:file=\"$base.wav\"";
system "oggenc \"$base.wav\" ";
unlink("$base.wav");
print "$base.wma converted to ogg.\n";
}