select2

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

#!/usr/local/bin/perl -w
use strict;
use DBI;
my $host='localhost';
my $port=6100;
my $dbh = DBI->connect(
  "dbi:Gigabase:host=$host;port=6100",
    "guest", "guest",{AutoCommit=>1}) 
   || die ;
my $select=$dbh->prepare('select * from r where one > 5')
 || die $dbh->errstr;
print "prepared\n";
$select->execute() || die $select->errstr;
while ( my($a,$b,$c,$d)=$select->fetchrow_array) {
  print "$a, $b, $c, $d\n";
}
$dbh->disconnect;
print "disconnected\n";