14 lines
187 B
Perl
Executable file
14 lines
187 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
use strict;
|
|
my $olddat;
|
|
while (my $dat =<STDIN>){
|
|
my @data=split(/\t/,$dat);
|
|
if ($dat eq $olddat){
|
|
# print "oi";
|
|
} else {
|
|
print $dat;
|
|
}
|
|
$olddat=$dat;
|
|
}
|