Discussion :

[ggnore]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[ggnore]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ggnore]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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";
 
}

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[ggnore]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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.

[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.