Discussion :

[danathane]

Salut tout le monde!

J'utilise une librairie de fonctions qui envoi les erreur en stderr. le seul soucis que j'ai c'est que je ne sais pas comment faire pour diriger ces erreurs dans un fichier de log. Je pense qu'il faut modifier le STDERR.. mais je ne sais aps comment faire. Si vous avez une idée je suis preneur.

merci d'avance.

[iblis]

Code :

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

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl
use strict; use warnings;
 
use IO::Handle;
 
open my $errfh, '>', 'error.txt' or die "\n";
 
STDERR->fdopen( $errfh,  'w' ) or die $!;
 
warn "Nous y voilà\n";

[danathane]

Ok, j'avais trouvé un truc similaire :

open(STDOUT, ">stdout.log" ) or die "cannot redirect stdout output in log file : $!\n";
open(STDERR, ">stderr.log" ) or die "cannot redirect stderr output in log file : $!\n";

Quand on a un programme qui utilise plusieurs script, est ce qu'il est possible de faire la redirection pour tous les scripts au début du programme, ou bien doit-on ouvrir mettre la redirection au début de chaque script?

Et heu autre question idiote, comment faire pour rajouter un retour à la ligne à chaque appel de ces deux fonctions? Merci

[iblis]

IO::Handle est plus propre.

Si tu veux le faire à la main :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
open my $newerr, ">&", \*STDERR 
  or die "Can't dup STDERR: $!";
open STDERR, '>', "error.txt" 
  or die "Can't redirect STDOUT: $!";
 
warn "Nous y voilà\n";
 
open STDERR, '>&', $newerr  
  or die "Can't dup new error output: $!";
 
warn "Nous n'y sommes plus\n";

Tu rediriges les entrées sorties de ton script Perl comme tu veux (vois ci-dessus).

Ben print des "\n".

[danathane]

Ok mais ca c'est dans le cas ou je sais que je vasi avoir des erreur quan c'est moi qui écrit le script + les erreur.

Là je dois catcher les erreurs d'une libraire de fonction que je ne peux pas modifier. Donc quand je fais STDERR... tout ce que je peux faire c'est récupérer cette erreur.
Mais est ce que je peux la préfixer une erreur que je récupère avec la date ou l'heure de l'erreur sasn modifier la librairie qui m'envoi cette erreur?? ou bien impossible?

[iblis]

Oui, je t'ai montré plus haut. Tu rediriges ta sortie erreur standard, puis tu appelles tes routines. Les erreurs seront redirigés vers ton fichier de log. (Le deuxième exemple te montre le détail, plus comment faire pour restaurer stderr.)

Regarde IO::Handle et perldoc -f open.

Sinon si tu veux du exception handling, ça va probablement dépendre du module en question. S'il utilise autodie, ce sera bien plus simple.