SPUG:Best One-Liners and Scripts for UNIX

John W. Krahn krahnj at acm.org
Thu Apr 17 03:11:43 CDT 2003


On Wednesday 16 April 2003 20:44, Brian Hatch wrote:
>
> Yeah, that's much longer than one line, but it could be reduced
> to this if you don't want to support alternate delimeters:
>
>   function sp {
> 	$PERL5 -ape 'chomp @F; $_=join(" ",grep /./, @F['$fields'])."\n"' $@

That could be simplified to:

 	$PERL5 -lape'$_="@F['$fields']"' $@


:-)



John
-- 
use Perl;
program
fulfillment




More information about the spug-list mailing list