форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Как достучаться до MS SQL из Perl?"
Сообщение от Dawnshade on 15-Июл-02, 16:41  (MSK)
Перл соответсвенно на FreeBSD, MS - MS.... Не подскажите???
	Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: Как достучаться до MS SQL из Perl?"
Сообщение от J on 15-Июл-02, 18:57  (MSK)
>Перл соответсвенно на FreeBSD, MS - MS.... >Не подскажите??? FreeTDS
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "RE: Как достучаться до MS SQL из Perl?"
	Сообщение от Dawnshade on 16-Июл-02, 09:01  (MSK)
	>>Перл соответсвенно на FreeBSD, MS - MS.... >>Не подскажите??? > >FreeTDS Пробовал. Вылетает с Segmentation fault (core dumped). Примитивный скрипт: #!/usr/bin/perl                                                                                                                                                     use DBI ;                                                                           $user = 'xxxx' ;                                                               $passwd = 'xxxx' ;                                                                                                                                                                                                                                   $dbh = DBI->connect('DBI:Sybase:server=ELIMAR', $user, $passwd);                   $dbh->do("use xxxx00");                                                                                                                                              $action = $dbh->prepare("sp_help") ;                                               $action->execute ;                                                                 $rows = $action->rows ;                                                             print "rows is $rows\n";                                                                                                                                              while ( @first = $action->fetchrow_array ) {                                               foreach $field ( @first ) {                                                         print "$field\t";                                                                   }                                                                                   print "\n";                                                                 }
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Решил я все-таки проблему следующим образом:"
	Сообщение от Dawnshade on 16-Июл-02, 11:27  (MSK)
	#!/usr/bin/perl -w # use DBI; use DBD::Sybase; use strict; my $user='xxxx'; my $password='xxxx'; my $dbh = DBI->connect('DBI:Sybase:server=XXXX', $user, $password); $dbh->{'syb_flush_finish'} = 1;      if ($dbh) { print "\nConnect OK!\n"; } my $action = $dbh->prepare("sp_help") ; $action->execute ; my $rows = $action->rows ; print "rows is $rows\n"; while ( my @first = $action->fetchrow_array ) {         foreach my $field ( @first ) {         print "$field\t";         }         print "\n"; };        $dbh->disconnect; print "\nDisconnected!\n"; ---------------------------------------- И что самое интересное без всяких переменных $ENV{SYBASE}='/usr/local/etc';
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.