Discussion :

[sone47]

Bonjour tous,

Une petite question pour savoir s'il est possible de rediriger un print dans rien.

Je m'explique:
J'ai un programme qui execute une interpretation de log, donc qui traite beaucoup de données, et qui en affiche beaucoup.

J'ai déja décomposé mes affichages en 2 avec STDERR et STDOUT pour différencier les affichages process des affichages de résultats (que l'on peut rediriger vers un fichier simplement).

Maintenant j'aimerais ajouter une option "quick" qui me permette d'afficher uniquement certains de mes prints pour un affichage rapide (mes prints les plus importants).

J'ai donc pensé redirigé mes print vers STDOUT1 et STDOUT2 (que j'aurais lié a STDOUT), puis si l'option est activé il faudrait que je puisse rediriger STDOUT2 vers rien... ou quelque part qui n'affecte pas l'affichage.

Est ce possible ou existe t il une solution plus optimisée ?

Merci d'avance.

cdlt

[djibril]

au lieu d'afficher dans rien, pour quoi tout simplement ne pas printer s'il ton option est activée

[Philou67430]

Personnellement, j'ai l'habitude de créer une variables "$debug" contenant une valeur numérique, et de faire des print conditionnels :

Code :

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

1
2
3
4
 
print "Info de niveau 1" if $debug > 0;
print "Info de niveau 2" if $debug > 1;
...

Mais je viens de voir qu'il y avait un module pour ça : Debug::Message (et sans doute d'autres).

[sone47]

Oui je vais utiliser cette méthode la,

Je pensais que l'on pouvait configurer plus facilement cette redirection, pour un souci de maintenabilité (définir plusieurs dest STDERR, STDOUT1, STDOUT2..., et les configurer en début de script).

je vais le faire avec des if, ce qui m'embete c'est que si une modif est a faire, tout les prints seront a redéfinir...(au vue de la taille du script ca peut vite devenir embetant).

Merci a vous,

Bonne fin de journée

[Philou67430]

Mmmh... je ne vois pas en quoi les print sont plus à modifier avec le méthode du if, qu'avec la méthode d'un filehandle distinct

[sone47]

Et bien la méthode du if permet de savoir si l'affichage doit ou ne doit pas etre executé.

Avec des filehandle (si on pouvait le rediriger dans rien), on pourrait gérer aussi bien si l'affichage doit etre executé mais également la destination de l'affichage.

Cette méthode ne présente pas de probleme actuellement mais si par la suite le script doit évoluer, les modifications seront moins evidentes.

[Philou67430]

Pour gérer des filehandle multiples, tu peux alors utiliser un tableau de FH :

Code :

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

print { $OUT[$debug] } "message" if $debug > 0;

(bien lire le manuel de open et print pour ce qui concerne les filehandle scalaire, car il y a des contraintes à connaitre).

[Jedai]

Oui je vais utiliser cette méthode la,

Je pensais que l'on pouvait configurer plus facilement cette redirection, pour un souci de maintenabilité (définir plusieurs dest STDERR, STDOUT1, STDOUT2..., et les configurer en début de script).

je vais le faire avec des if, ce qui m'embete c'est que si une modif est a faire, tout les prints seront a redéfinir...(au vue de la taille du script ca peut vite devenir embetant).

Quand tu penses ça, ton réflexe devrait être : peut-on factoriser tout ça au lieu d'éparpiller les détails du debug partout ?
Evidemment la réponse est oui, il suffit d'utiliser dès l'origine une fonction personnelle différente de print(), que tu peux redéfinir quand tu veux. Une encore meilleure solution serait de s'intéresser aux module de log pour Perl, certains sont très puissants et très pratiques (la rolls, peut-être même un peu trop extensive pour tes besoins).

--
Jedaï