[perl] connexion à un serveur MSSQL via freetds

connexion à un serveur MSSQL via freetds [perl] - Perl - Programmation

Marsh Posté le 07-01-2007 à 09:55:56    

Bonjour a tous,
 
Je rencontre quelques difficultés a me connecter a une base MS SQL depuis linux.
J'utilise une conf freetds déjà configurée (et qui fonctionne déjà pour d'autres choses)

Code :
  1. [plop@truc01 ~]$ locate freetds
  2. /outils/local-etc/freetds.conf
  3. /outils/local-etc/freetds.conf.ori
  4. /usr/local/freetds
  5. /usr/local/freetds/include
  6. /usr/local/freetds/lib
  8. [plop@truc01 ~]$ cat /outils/local-etc/freetds.conf
  9. [serveur1]
  10.         host = serveur1
  11.         port = 1433
  12.         tds version = 8.0
  14. [plop@truc01 ~]$ tsql -H serveur1 -U xxxx -P xxx -p 1433
  15. locale is "C"
  16. charset is "ANSI_X3.4-1968"
  17. Msg 5703, Level 0, State 1, Server xxxx\xxxx, Line 0
  18. Changed language setting to us_english.
  19. 1>


 
Par contre je ne reussi pas a me connecter a ce serveur via mon script perl

Code :
  1. [plop@truc01 ~]$ cat test_connect.pl
  2. #!/usr/bin/perl -w
  4. use warnings;
  5. use strict;
  6. use DBI;
  8. use DBD::Sybase;
  9. BEGIN
  10. {
  11.     $ENV{SYBASE} = "/usr/local/freetds";
  12. }
  14. my $user   = "xxx";
  15. my $passwd = "xxx";
  17. print "avant\n";
  18. my $dbh = DBI->connect("DBI:Sybase:server=serveur1", $user, $passwd) or die "connection impossible!";
  19. print "apres\n";
  21. ## la suite c'est pour la forme ... ca plante avant :/
  23. dbh->do("use Domaines" );
  25. my $sth;
  27. $sth = $dbh->prepare("select * FROM tableA" );
  29. if ($sth->execute)
  30. {
  31.         while(my @dat = $sth->fetchrow)
  32.         {       print "@dat\n"; }
  33. }
  35. exit(0);


 
Lorsque j'execute ce script :

Code :
  1. [plop@truc01 ~]$ ./test_connect.pl
  2. avant
  3. Server message: number=14 severity=1 state=18452 line=0 text=
  4. Segmentation fault


 
Je sais pas trop ou ca bloque.  
D'apres http://freetds.org/userguide/perl.htm ca a l'air pourtant simple :/
 
Une idée braves gens ?
Merci bien


Message édité par 3xc4l18ur le 07-01-2007 à 09:56:34
Reply

Marsh Posté le 07-01-2007 à 09:55:56   

Reply

Marsh Posté le 09-01-2007 à 13:37:18    

personne ne sait ou je n'ai pas été clair ?
C'est visiblement un probleme dû au driver Sybase, car si je modifie "DBI:Sybase:server=serveur1" en "DBI:Sybase:server=serveur", là c'est perl  qui me jette.
 
 
 
Merci


Message édité par 3xc4l18ur le 10-01-2007 à 13:37:50
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed