Ok, I got inspired while converting my MP3 collection to Ogg Vorbis. Here's a few oneliners I used.
Convert all MP3's in directories given to it.perl -e 'while(<>){chomp;print "*** $_ ***\n";chdir"$_";system "mp32og +g --maxbitrate 128 *.mp3";}'
Clean up any duplicate messes in current directory that may belong someplace else.
perl -e 'while(<>){chomp;@z=`find . -name "$_"`;unlink $_ if($#z);}' < + temp.txt
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Random RedWolf OneLiners
by broquaint (Abbot) on Feb 20, 2002 at 11:01 UTC |
Back to
Cool Uses for Perl