problème avec File::Tee

Bonsoir à tous,

Pour un de mes projets ,j' essaye de réaliser les actions suivantes :

- si un script est lancé via une console, alors les sorties d'erreur et standard sont redirigées à la fois à l'écran et dans un fichier de log

- si le script est lancé via la crontab ou un autre ordonnanceur, les sorties sont uniquement redigirées dans une log

Pour cela j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

use File::Tee qw(tee); use IO::Interactive qw(is_interactive);   my $FILE="/home/olwin/Desktop/test";   if ( is_interactive() ) { ## ici le but est d'avoir les info a l'écran + ds un fichier de log tee STDOUT, { lock => 1, mode => '>>', open => "$FILE" }; tee STDERR, { lock => 1, mode => '>>', open => "$FILE" };   }else{   ## traitement lancé en crontab ou via un ordonnanceur quelconque open(STDOUT, ">$FILE") or die "erreur lors de l'ouverture de la sortie standard"; open(STDERR, ">&STDOUT") or die "erreur lors de l'ouverture de la sortie d'erreur "; select (STDERR); # Suppression de la bufferisation de STDERR. $| = 1; select (STDOUT); # Suppression de la bufferisation de STDOUT. $| = 1; }

---

Le soucis , en faisant un test en affichant les messages suivants:

Code:

---

1 2 3 4 5

print STDOUT " OUT 1"; print STDERR " ERR 1"; print STDOUT " OUT 2"; print STDERR " ERR 2";

---

via crontab : j'obtient bien la bonne séquence soit :

Code:

---

1 2	OUT 1 ERR 1 OUT 2 ERR 2

---

mais lorsque je le lance via un terminal , la séquence est incorrect , j'obtient ceci :

Code:

---

1 2	ERR 1 ERR 2 OUT 1 OUT 2

---

Auriez vous une idée du pourquoi ?

J'ai essayé de supprimer la bufferisation sur les 2 sorties avant d'utiliser le module File::Tee, mais cela ne fonctionne pas.
(bizarrement si je rajoute des \n dans chaque print, cela a l'air de fonctionner)

Citation:

---

Envoyé par olwin

Auriez vous une idée du pourquoi ?

---

STDOUT est mis en tampon alors que STDERR n'a pas de tampon.

Citation:

---

Envoyé par olwin

J'ai essayé de supprimer la bufferisation sur les 2 sorties avant d'utiliser le module File::Tee, mais cela ne fonctionne pas.
(bizarrement si je rajoute des \n dans chaque print, cela a l'air de fonctionner)

---

Normalement si tu as bien mis l'autoflush sur les deux sorties ça devrait marcher, comment as-tu essayé de le faire ?

--
Jedaï

Citation:

---

Envoyé par Jedai

Normalement si tu as bien mis l'autoflush sur les deux sorties ça devrait marcher, comment as-tu essayé de le faire ?

--
Jedaï

---

Apparemment le module File::Tee gère l'autoflush par défaut, j'ai essayé les deux méthodes suivantes :

Code:

---

1 2 3 4 5 6 7 8

if ( is_interactive() ) {   tee STDOUT, { lock => 1, mode => '>>', open => "$FILE", autoflush => 1 }; tee STDERR, { lock => 1, mode => '>>', open => "$FILE", autoflush => 1 };   }

---

et celle-ci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

if ( is_interactive() ) {   select (STDERR); $| = 1; select (STDOUT); $| = 1;   ## ici le but est d'avoir les info a l'écran + ds un fichier de log tee STDOUT, { lock => 1, mode => '>>', open => "$FILE" }; tee STDERR, { lock => 1, mode => '>>', open => "$FILE" };   }

---

Malheureusement aucune des deux n'a fonctionné

Citation:

---

Envoyé par olwin

Malheureusement aucune des deux n'a fonctionné

---

Tu as essayé de combiner les deux ? La deuxième marche chez moi sans File::Tee (marche pas sous Windows et tout de suite je suis sous Windows, je testerais sous Linux quand j'y retournerai si tu n'as pas réglé ton problème entre-temps).

--
Jedaï

Citation:

---

Envoyé par Jedai

Tu as essayé de combiner les deux ? La deuxième marche chez moi sans File::Tee (marche pas sous Windows et tout de suite je suis sous Windows, je testerais sous Linux quand j'y retournerai si tu n'as pas réglé ton problème entre-temps).

Jedaï

---

Oui, cela ne fonctionne pas. (apparemment si le paramètre autoflush n'est pas renseigné, par défaut il est activé)

J'ai regardé un peu le code du module, mais j'avoue que c'est bien au dessus de mes connaissances perl actuel

Bonjour,

après plusieurs échec en voulant utiliser File::Tee, j'ai trouvé un module qui fonctionne partiellement :

Le module est le suivant : Local::TeeOutput
http://jenda.krynicky.cz/#Local::TeeOutput

Utilisation :

Code:

---

1 2 3 4 5

my $FILE="/tmp/test.txt"; open (LOG, ">>$FILE"); openTee (*STDOUT, *STDOUT, *LOG); openTee (*STDERR, *STDERR, *LOG);

---

Le seul gros soucis pour le moment,c'est que celui ci :
redirige bien les erreurs crée dans le script (via la commande print qu'il "surcharge")

Mais du coup :
- les erreurs ou les messages affichés sur SDTOUT des commandes système ne sont affichées que sur l'écran et ne sont pas écrites dans la log

Mais au moins je n'ai plus de problème de bufferisation , qui rendait les logs vraiment ilisible
Je me rapproche d'une solution viable ;)

et bien j'ai enfin trouvé une solution !

Parfois la meilleure solution est la plus simple --> passé par une commande système

pour rediriger à la fois dans un fichier de log et sur l'écran, il suffit d'écrire ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

my $FILE="/tmp/test"; select (STDERR); # Suppression de la bufferisation de STDERR. $| = 1; select (STDOUT); # Suppression de la bufferisation de STDOUT. $| = 1;   open TEE, "| tee ${FILE}"; open STDOUT, ">&TEE"; open STDERR, ">&TEE";

---

et bien sur ne pas oublier à la fin du programme :

Code:

---

1 2 3 4

close (STDERR); close (STDOUT); close (TEE);

---