Re: [MacPerl] Commenting blocks of code

[Larry Moore <ljmoore@freespace.net>]

(this passes simple testing, deleting non-uniq lines from a sorted text file)
uniq.pl
$saved = "";
while ( <> )
{ if ($saved ne $_ )
	{
	print $_
	};
 $saved = $_;
 }



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