Initial revision
[wip/koha-chris_n.git] / 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 }