--- Eric Waguespack wrote:
> 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.
Yep. To aid sight in this case, Deparse is your friend:
# perl -MO=Deparse f.pl
BEGIN { $/ = "\n"; $\ = "\n"; }
LINE: while (defined($_ = <ARGV>)) {
chomp $_;
$o = $_;
tr/ /_/;
print "renaming $o ===> $_" and rename $o, $_ unless -e $_;
}
f.pl syntax OK
Cheers,
/-\
____________________________________________________
On Yahoo!7
Messenger - Make free PC-to-PC calls to your friends overseas.
http://au.messenger.yahoo.com
