[Chicago-talk] removing blank lined header

Steven Lembark lembark at wrkhors.com
Wed Sep 29 13:20:56 CDT 2004



-- 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


More information about the Chicago-talk mailing list