The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
Как достучаться до MS SQL из Perl?, !*! Dawnshade, 15-Июл-02, 16:41  [смотреть все]
Перл соответсвенно на FreeBSD, MS - MS....
Не подскажите???
  • RE: Как достучаться до MS SQL из Perl?, !*! J, 18:57 , 15-Июл-02 (1)
    >Перл соответсвенно на FreeBSD, MS - MS....
    >Не подскажите???

    FreeTDS


    • RE: Как достучаться до MS SQL из Perl?, !*! Dawnshade, 09:01 , 16-Июл-02 (2)
      >>Перл соответсвенно на 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";                                                                
      }                    

      • Решил я все-таки проблему следующим образом:, !*! Dawnshade, 11:27 , 16-Июл-02 (3)
        #!/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';




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру