Search Results

#!/usr/bin/env perl

open( $fh, "<", "file") or die "Cannot open file: $!\n";

while( my $line = <$fh>) {
chomp($line);
my @array = split /\s+/, $line; # split to get 3rd field
if (...

#!/usr/bin/env perl

open( $fh, "<", "yourfile") or die "Cannot open file: $!\n";
# go through the file line by line
while( my $line = <$fh>) {
chomp($line); #...