- or download this
# Method Z
my @key_columns = $dbh->primary_key( $catalog, $schema, $table);
- or download this
# my $limit = 6;
my $select = $dbh->prepare("select * from $table");# LIMIT $limit");
$select->execute();
- or download this
while (my $row = $select->fetchrow_hashref()) {
my $key = join '', delete @{$row}{@key_columns};
$kol{$key} = $row;
}