Help for this page

Select Code to Download


  1. or download this
    while (my $row = $sth->fetch()){
       push @{ $data[0] }, $row->[0];
       push @{ $data[1] }, $row->[1];
    }
    
  2. or download this
    print Dumper(\@data);