12 lines
156 B
Perl
Executable File
12 lines
156 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
|
|
foreach my $arg (@ARGV)
|
|
{
|
|
my $out = $arg;
|
|
$out =~ s/\....$//;
|
|
system('oggenc', '-b', '192', '-o', "$out.ogg", $arg);
|
|
}
|
|
|