connect_mini

来自「一个俄国人实现的数据库系统」· 代码 · 共 15 行

#!/usr/local/bin/perl -w
use strict;
use DBI;
my $host='localhost';
my $port=6100;
my $dbh = DBI->connect("dbi:Gigabase:") 
   || die "Can't connect\n";
my $select=$dbh->prepare("select name from r");
$select->execute;
while (my $name=$select->fetchrow_array()) {
 print "$name\n";
}
print '=' x 20,"\n";
$dbh->disconnect;