Help for this page

Select Code to Download

Select or download this

$ cat test.pl
#!/pro/bin/perl
...
CONDENSED,153188023,0H0020000,20150105,Ohio,2015,BA,,
CONDENSED,173167740,MT007015G,20141202,Oregon,2015,BA,,
$

Select or download this

csv (in => "test.csv", filter => {
    1 => sub { $_ = $state{$_} || $_ },
    5 => sub { $_ = $state{$_} || $_ },
    });