SPUG:Best One-Liners and Scripts for UNIX

[Brian Hatch]

> >   function sp {
> > 	$PERL5 -ape 'chomp @F; $_=join(" ",grep /./, @F['$fields'])."\n"' $@
> 
> That could be simplified to:
> 
>  	$PERL5 -lape'$_="@F['$fields']"' $@

The reason for the grep was to allow laziness:

	sp 5..9999  /some/file

so you didn't need to actually count the fields to say "everything from
field #5 and therafter" and didn't get thousands of " " chars at the
end of each line.  Optimal?  Nah.  Ugly?  Yeah.  Works?  Yeah.

And this was back when I was just starting to learn perl and hadn't
learned about -l yet.  (I love -l)

--
Brian Hatch                  He without humor
   Systems and                is unarmed.
   Security Engineer
http://www.ifokr.org/bri/

Every message PGP signed
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 189 bytes
Desc: not available
Url : http://mail.pm.org/pipermail/spug-list/attachments/20030417/69c8448e/attachment.bin