Help for this page

Select Code to Download


  1. or download this
    my @column_names = @{$_read_sth->{NAME_lc});
    local $\ = "\n";
    ...
    while (my $row = $_read_sth->fetchall_arrayref) {
        print join ",", @$row; # Extremely oversimplified
        }
    
  2. or download this
    $VAR1 = [
              undef
            ];