From: Yukko <yukko@bigmir.net>
Newsgroups: email
Date: Mon, 27 Jan 2004 14:31:37 +0000 (UTC)
Subject: Настройка работы Perl скриптов совместно с MsSQL
В статье http://www.opennet.ru/base/dev/mssql_php.txt.html я описывал, как
заставить PHP на Linux'е работать с базой MsSQL при помощи библиотеки freetds.
Думаю, что некоторых волнует вопрос, как сделать тоже самое, только с Perl.
Наш системный администратор решил перенести RADIUS server, который написан на
Perl с Windows на Linux и столкнулся с подобной проблемой, которую успешно решил.
Все шаги, которые приведены ниже - это его труд.
1. Инсталляция freetds (так же приведена в статье, которую я указал выше)
./configure
make
make install
[myserver]
host=<DBserver_address>
port=port number
tds version=8.0
2. Установка dbi
Perl makefile.pl
Make
Make test
Make install
3. Установка dbd-sybase
Makefile.pl (В строке 92 добавить $SYBASE=’/usr/local’)
Perl makefile.pl
Make
Make test
Make install
4. Тестирование соединения
Все это тестируется простым скриптом на Perl, текст которого приведен ниже:
#!/usr/bin/perl
use DBI;
my @data;
$dbh=DBI-connect('DBI:Sybase:server=host:port','username','password') or
die "Couldn't connect to database: " . DBI->errstr;
my $sth=$dbh->prepare('sql query');
$sth->execute();
while (@data=$sth->fetchrow_array())
{
my $x=@data[0];
print "resultt $xn";
}
1271 Прочтений • [Настройка работы Perl скриптов совместно с MsSQL (perl database win)] [08.05.2012] [Комментариев: 0]
Vova
