Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (9 sloc) 168 Bytes
#!/usr/bin/perl
use strict;
while (<>) {
chomp;
my @line = split / /;
if ($line[5] == 1 && $line[6] >= 50 && $line[7] eq 'NA') {
print "$_\n";
}
}