[Chicago-talk] removing blank lined header

Leland Johnson easyasy2k at gmail.com
Wed Sep 29 13:41:14 CDT 2004


That's pretty slick.


On Wed, 29 Sep 2004 14:20:56 -0400, Steven Lembark <lembark at wrkhors.com> wrote:
> 
> 
> -- Leland Johnson <easyasy2k at gmail.com>
> 
> > perl -ne'BEGIN { $a = 0 } $a++ if(not /^$/); print if(!/^$/ or $a)'
> > clunky, but works.
> 
>         local $/;
>         ( $a = <ARGV> ) =~ s/^\s+//s
> 
> 
> 
> 
> --
> Steven Lembark                                       85-09 90th Street
> Workhorse Computing                                Woodhaven, NY 11421
> lembark at wrkhors.com                                     1 888 359 3508
> _______________________________________________
> Chicago-talk mailing list
> Chicago-talk at mail.pm.org
> http://mail.pm.org/mailman/listinfo/chicago-talk
> 



-- 
Leland Johnson
http://protoplasmic.org


More information about the Chicago-talk mailing list