Re: file renamer (i'm a newbie)
[email protected] ("Eric Waguespack") Sat, 25 Mar 2006 00:56:21 -0600
| Newsgroups | perl.golf |
|---|---|
| Message-ID | <[email protected]> |
ok...
#!/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.