misc/fixorders.pl2

   1 #!/usr/bin/perl
   2
   3
   4 use strict;
   5 my $olddat;
   6 while (my $dat =<STDIN>){
   7   my @data=split(/\t/,$dat);
   8   if ($dat eq $olddat){
   9 #    print "oi";
  10   } else {
  11     print $dat;
  12   }
  13   $olddat=$dat;
  14 }