Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl qw/2014/;
use DBI;

...
    say $row->{col1}, "\t", $row->{'counter'};
}
  2. or download this
    dave   2
james  2
jon    4
ken    1
mike   1