On 6/12/07, yitzle <[EMAIL PROTECTED]> wrote:
Issues with both methods:
snip
If you only want to reduce runs (as opposed to removing dups) then
#!/usr/bin/perl
use strict;
use warnings;
my $cur = undef;
while (<DATA>) {
print unless defined $cur and $_ eq $cur;
$cur = $_;
}
__DATA__
AAAAAAAAAAAAA
AAAAAAAAAAAAA
AAAAAAAAAAAAA
BBBBBB
AAAAAAAAAAAAA
NNNNNNNNNNN
NNNNNNNNNNN
AAAAAAAAAAAAA
CCCCCCCCC
CCCCCCCCC
CCCCCCCCC
CCCCCCCCC
AAAAAAAAAAAAA
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
