> #####_alpha_name > > > I need them renamed to just: > > ##### > > > Is there an easy way via the command line to truncate them to just > the first five characters (which would be just their ID number)?
Here is a recursive one liner
perl -MFile::Find -e 'find sub{-d && /^(.{5})_/ && (rename($_, $1) ||
warn "Err: $_ => $1: $!") }, "."'
Paul
/*
PLUG: http://plug.org, #utah on irc.freenode.net
Unsubscribe: http://plug.org/mailman/options/plug
Don't fear the penguin.
*/
