[Sqlserver] DBI et variable OUTPUT

Version imprimable

Bonjour,

Quand j'exécute une requête sur un serveur sqlserver, le script fait printf du nombre d'enregistrement impactés(delete/insert) ou retournés(select).
Ce printf a lieu lors de la fermeture d'une accolade. J'aimerai récupérer cette valeur de façon propre et que le script ne fasse pas de printf que je ne lui ai pas demandé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 my $requete = "EXECUTE [InfraPeriph].[dbo].[sp_importSupervision_bis] services,null,$cls_param "; my $sth = $dbh_infra->prepare($requete); $sth->execute() or $logger->debug("Erreur bdd SqlServer@".$InfraBdd{$env}{'ip'}." : ". $DBI::errstr); my @row; #Parcours des enregistrements while (@row = $sth->fetchrow_array()) { [...]traitement } #fin boucle # NB record s'affiche ici 43 (sqlserver)
L'affichage du nombre d'enregistrements passe par la sortie d'erreur.

10/12/2013, 10h58
ggnore

Dans la procédure stockée, il y avait des PRINT. L'affichage de ce print passe par le flux d'erreur (2). J'ai demandé la modification de la procstock. Je souhaite maintenant binder une variable pour récupérer cette valeur proprement. Par contre je ne sais pas comment faire. :?
13/12/2013, 10h26
ggnore

Les PRINT entrainent l'écriture d'un string sur STDERR.
J'ai essayé de faire un

Code:

while( my $RC = <STDERR>)

mais ça ne récupère rien. ça a lieu quand l'accolade fermant le scope où la requête sqlserver a eu lieu apparaît. :?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
sub mytest{
 
        my $server      ='**.**.**.**';
        my $login       ='********';
        my $password    ='***********';
 
        $ENV{'SYBASE'} = '/usr/local/freetds' unless $ENV{'SYBASE'};
        my $dbh_alti =    DBI->connect('dbi:Sybase:server='.$server,$login,$password)
        or printf ("Echec connexion $login@".$server." ".DBI->errstr);
 
        my $requete = "DECLARE \@output INT; SET \@output=1337; PRINT \@output;";
#       my $requete = "PRINT 1337";
 
        my $sth = $dbh_alti->prepare($requete);
 
# save original STDERR
open my $saved_stderr, ">&STDERR";
# create a pipe, which we'll use to read STDERR
local(*RH, *WH);
pipe RH, WH;
# connect the writing side of the pipe to STDERR, with
# STDERR being (and remaining) fileno 2 (!)
open STDERR, ">&WH" or die "open: $!";
# debug: verify that fileno(STDERR) really is 2
printf "fileno(STDERR): %d\n", fileno(STDERR);
 
        my $rc = $sth->execute
        or die "Can't execute statement: $DBI::errstr";
 
# close WH to avoid buffering issues (pipes are buffered)
close WH;
# read output (one line)
# (todo: fix so it doesn't block when there's nothing to read!)
my $err = <RH>;
close RH;
 
# restore original STDERR
open STDERR, ">&", $saved_stderr or die "open: $!";
 
print "captured stderr: $err\n";
 
}

13/12/2013, 19h31
Lolo78

Bonjour,

à la lecture de tes trois premiers posts, j'allais te proposer de rediriger la sortie d'erreur, par exemple à la ligne de commande lançant ton script, avec un truc du genre:

Code:

perl my_program.pl param1 param2 2>/dev/null

ou dans le script Perl lui-même en associant un fichier à la sortie d'erreur. Il me semble que c'est plus ou moins ce que tu fais dans le script du post # 4, est-ce que ça marche pour toi?

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 #!/usr/bin/perl use warnings; use strict; use IO::Capture::Stderr; my $capture = IO::Capture::Stderr->new(); $capture->start(); print STDERR "erreur t'asvu"; $capture->stop(); my $err = $capture->read; printf $err."\n";
Je ne veux rediriger STDERR que pour une commande interne à Perl (le $sth->execute d'une requête sqlserver)
Il faudra que je vérifie si le "or die" fonctionne bien. Mis à part ça le paquet IO::capture a l'air de faire le travail.

16/12/2013, 17h30
Loceka

Amha le or die va arrêter le programme sans rien écrire sur STDERR, du coup il ne faudrait pas mettre le die à cet endroit là mais plutôt après la réouverture de stderr.

Bien à toi.
Loceka.
18/12/2013, 12h04
ggnore

Tu as raison Loceka, cette capture a un bel effet de bord qui peut m'empêcher de récupérer les messages d'erreur. Merci.