Discussion :

[leon1983]

Bonjour,

Je voudrais logger dans un fichier log les erreur rencontrées dans mon script

par exemple faire :

Code :

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

move("$source","$destination") or <ecrire un message d'erreur dans une log>;

Quelle est la bonne pratique pour faire cela ?

[Lolo78]

Sous quel système d'exploitation?

Sous Unix, tu peux remplacer le "die" par un "warn" et rediriger la sortie d'erreur (STDERR) vers un fichier.

Sous d'autres système il peut être nécessaire d'ouvrir explicitement le fichier log et d'imprimer tes messages dedans.

[leon1983]

Je suis sur Unix.

[Lolo78]

Donc, tu peux utiliser la fonction warn pour écrire dans la sortie standard (ou print sur STDERR).

Et tu appelles ton programme avec une syntaxe de type:

Code :

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

perl mon_script.pl param1 param2 2>fichier.log

Ou sinon, tu ouvres explicitement un fichier log. A noter qu'il existe aussi des modules pour gérer les logs, comme Log::Log4perl, mais je ne connais pas.

[ggnore]

Log4perl c'est très bien.

tu crées un fichier de configuration :

Code :

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

1
2
3
4
5
6
7
8
log4perl.logger=DEBUG,RotationFile
log4perl.appender.RotationFile=Log::Dispatch::FileRotate
log4perl.appender.RotationFile.filename=/chemin/vers/mon/fichier.log
log4perl.appender.RotationFile.mode=append
log4perl.appender.RotationFile.max=10
log4perl.appender.RotationFile.size=104857600
log4perl.appender.RotationFile.layout=Log::Log4perl::Layout::PatternLayout
log4perl.appender.RotationFile.layout.ConversionPattern=%d %p> %m%n

Et dans ton code tu ajoutes :

Code :

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

1
2
3
4
use Log::Log4perl qw(:easy);
Log::Log4perl->init_and_watch("/chemin/vers/mon/fichier_de_conf.cfg", 60);
my $logger = get_logger();
$logger->debug( "J'écris dans /chemin/vers/mon/fichier.log" );

[leon1983]

merci !
Log4perl fonctionne !

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Log::Log4perl->easy_init(
    {
    level => $ERROR,
    file  => ">> $logfile",
    size     => '10Mb',
    }
    );
 
ERROR("message d'erreur à logger");