On Wed, 2007-05-16 at 09:37 -0600, Paul Seamons wrote: > Here is a recursive one liner
And here is the reason I avoid perl at all costs.
>
> perl -MFile::Find -e 'find sub{-d && /^(.{5})_/ && (rename($_, $1) ||
> warn "Err: $_ => $1: $!") }, "."'
They say there are no viruses for linux...
>
> Paul
/*
PLUG: http://plug.org, #utah on irc.freenode.net
Unsubscribe: http://plug.org/mailman/options/plug
Don't fear the penguin.
*/
