Discussion :

[Matmal11]

Bonjour,

J'apelle un script perl depuis un shell Unix en redirigeant la sortie standart et erreur vers un fichier.

Code :

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

perl mon_script.pl > fichier.log 2>&1

J'ai besoin de la sortie ERREUR parce j'utilise la module Log::Log4perl pour créer un descripteur sur cette sortie.

Le problème est que au cours du script, je fais des tests et si l'un d'entre eux ne marche pas, je fais un "Die" du script.
Je voudrais que dans mon fichier de log ne s'écrive pas la ligne de Perl me disant :

Died at /mon_script.pl line 10, <> line 10

Savez-vous comment ne pas afficher ce message?


Une idée que j'ai eue a été de créer un fichier de log temporaire pour écrire les messages qui ne m'intéressent pas dans le fichier Log final.
Depuis ce script j'exécute des commandes unix. Et pour les commandes unix, la redirection est très facile.

Code :

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

1
2
3
4
if (`ls /bin/usr/* 2>/tmp/temp.log`)
{
Conmmande;
}

Est-ce que je peux comme avec linux rediriger la sortie erreur de Perl vers ce fichier de log???

Merci par avance
MAt

[Jedai]

Si tu utilise Log::Log4Perl, normalement tu devrais pouvoir facilement le configurer pour qu'il écrive dans un fichier de log plutôt que sur STDERR comme les die() et les warn().

--
Jedaï

[Matmal11]

En fait je viens de trouver une astuce.
Si j'écris:

Code :

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

1
2
3
4
if ( condition )
{
die "OUT OF LIMIT";
}

J'écris le message que je veux dans mon log (OUT OF LIMIT dans cet exemple).
Je voulais juste enlever le message générique de PERL.

Merci

Mat