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();