raise_err

一个俄国人实现的数据库系统

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