develooper Front page | | Postings from March 2006

Re: file renamer (i'm a newbie)

Thread Previous | Thread Next
Eric Waguespack
March 24, 2006 22:56
Re: file renamer (i'm a newbie)
Message ID:

#!/usr/bin/perl -nl
$o=$_;y/ /_/;-e||print("renaming $o ===> $_")&&rename$o,$_

ok so you are looping around <> and adding newlines...
saving the name as $o
y is an alias for tr
checking if the file exists with -e
|| print msg && rename.

very nice, thanks a lot.

Thread Previous | Thread Next Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at | Group listing | About