Help for this page

Select Code to Download


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