[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Omaha.pm] Another 30s script

Task: Find any lines in a pipe-delimited file where the 3rd column contains a non-alphanumeric character. 

j


#!/usr/bin/perl

open (IN, "j.unl");
while (<IN>) {
   chomp;
   @l = split /\|/;
   print if ($l[2] =~ /[^a-z0-9]/i);
}