Re: [MacPerl] Perl Filter Demos?

["Brian McNett" <brianmc@telebyte.net>]

> 1) Number the lines in selected region.  It's useful when you want to
> number the lines starting with 1 somewhere in the middle of the file.
>
>   #!perl -n
>   printf("%4d: $_",++$i);

TMTOWTDI

#!perl -p
printf("%4d: ", ++$i)

Note how this prints $_ implicitly.



--
Webmaster/MacPerl Guru
*****************************************************
Mycoinfo, the World's First Mycology e-Journal
http://www.mycoinfo.com/
*****************************************************




# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org