Perl/Linux から Microsoft SQL Server へ接続 その2

DBI - DBD::Sybase - FreeTDS を試してみる。[PHP-users 8826] Re: MSSQL につなぐには DBD::Sybaseモジュール(日本語チョー訳)あたりを参考にしつつ、woody にはパッケージがあったのでapt-get install libdbd-sybase-perl で、freetds も芋づるで入った。設定は /usr/share/freetds0/interfaces に以下の行を追加するだけ。

# add by tnh
SYBASE
        query tcp ether 192.168.1.150 1433
        master tcp ether 192.168.1.150 1433

あとは、以下のような感じで OK であった。

#!/usr/bin/perl
use DBI;
$ENV{'SYBASE'} = '/usr/share/freetds0';
$ENV{'DSQUERY'} = 'SYBASE';
$dbh=DBI->connect('dbi:Sybase:','user','pass');
$query = "SELECT * from test_table";
$sth=$dbh->prepare($query);
if($sth->execute()){
    	if(@row=$sth->fetchrow_array()){
        	print "sysdate=[",$row[0],"]","\n";
    	}
}else{
        $dbh->disconnect();
        print "データベースへのアクセスに失敗しました。" ;
        exit;
}
$sth->finish();
$dbh->disconnect();