Help for this page

Select Code to Download

Select or download this

my $last;
my $i = 0;
...
   $last = $_;
   print OUT ("$_ $i\n");
}

Select or download this

perl -lpe "$i++ if ($_ ne $last); $last = $_; $_.=' '.$i;" inputfile >
+ outputfile