Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

my @comment_state_names = map{($_->{comments}) ? $_->{state_name}: ()}
+@rows;
print join ",",@comment_state_names,"\n"; # West Virginia,Washington,

Select or download this

# Print each state and the counties that have a 'w' in them

...
AK  Ketchikan Gateway
AK  Prince of Wales-Hyder
=cut