Random RedWolf OneLiners

by strredwolf (Chaplain)

on Feb 20, 2002 at 07:27 UTC ( [id://146516]=CUFP: print w/replies, xml )

Need Help??

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";}'
[download]

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
[download]

Comment on Random RedWolf OneLiners Select or Download Code

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"'` [download] The `-n` sticks a `while(<>){ }` around the code and `-l` (by default) sets `$\` to `$/`. HTH broquaint	[reply] [d/l]

Domain Nodelet^?

Node Status^?

node history
Node Type: CUFP [id://146516]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others having a coffee break in the Monastery: (6)

As of 2024-04-16 22:43 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found