Help for this page

Select Code to Download


  1. or download this
    perl -anle"next unless @L; print if $L[0] eq $F[0]; @L = @F;" in.txt >
+ out.txt
  2. or download this
    perl -anwle 'BEGIN{$L = "";}  print if $F[0] eq $L; $L = $F[0];' in.tx
+t > out.txt
  3. or download this
    perl -anle 'print if $F[0] eq $L; $L = $F[0];' in.txt > out.txt