that is pretty cool... I'll have to remember it.
On 3/25/06, Andrew Savige <[EMAIL PROTECTED]> wrote:
> --- 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
>
>
