Skip to content

Instantly share code, notes, and snippets.

@jhannah
Created January 27, 2010 15:44
Show Gist options
  • Save jhannah/287948 to your computer and use it in GitHub Desktop.
Save jhannah/287948 to your computer and use it in GitHub Desktop.
my %cities;
open my $in, "infile";
while (<$in>) {
my @line = split /\t/;
next unless $line[2] eq "H1N1";
next unless $line[6] eq "South Africa";
my @city = split /\//, $line[3];
$city = $city[1];
$cities{$city} = 1;
}
foreach my $city (keys %cities) {
print "$city\n";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment