7 lines
104 B
Perl
7 lines
104 B
Perl
foreach $_ (sort <> )
|
|
{
|
|
next if( defined( $prevline ) && $_ eq $prevline );
|
|
$prevline = $_;
|
|
print;
|
|
}
|