[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

Re: [MacPerl] Commenting blocks of code



(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