13 lines
202 B
Perl
Executable File
13 lines
202 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
foreach my $arg (@ARGV)
|
|
{
|
|
my $out = $arg;
|
|
$out =~ s/\....$//;
|
|
$out =~ s/\,/\\,/g;
|
|
system('mplayer', '-vo', 'null', '-ao', "pcm:file=$out.wav", $arg);
|
|
}
|
|
|