6 lines
94 B
Perl
6 lines
94 B
Perl
while( <> )
|
|
{
|
|
next if( defined( $prevline ) && $_ eq $prevline );
|
|
$prevline = $_;
|
|
print;
|
|
}
|