Help for this page

Select Code to Download


  1. or download this
        if (m/zaps/i) {
        @zapschool = split (/\t/);
        print NEWFILE "$zapschool[4]\n";        
    }
  2. or download this
    C:\>perl -naF/\t/ -e "print qq($F[4]\n) if /zaps/" infile>outfile
  3. or download this
    C:\>perl -naF/\t/ -e "$hash{$F[4]}++ if /zaps/;END{print qq($_\t$hash{
+$_}\n) for sort keys %hash}" infile>outfile