Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Random RedWolf OneLiners

by strredwolf (Chaplain)
on Feb 20, 2002 at 07:27 UTC ( #146516=snippet: print w/replies, xml ) Need Help??
Description: 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
    Check out perl -h or perlrun and read up on some of the neat switches that are available on the command line e.g.
    perl -lne 'chomp; print "*** $_ ***"; chdir "$_"; system "mp32ogg --maxbitrate 128 *.mp3"'
    The -n sticks a while(<>){ } around the code and -l (by default) sets $\ to $/.
    HTH

    broquaint

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://146516]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (7)
As of 2017-08-22 19:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Who is your favorite scientist and why?



























    Results (340 votes). Check out past polls.

    Notices?