Hello !
j'ai un petit programme qui me rajoute dans un fichier log toutes les actions effectuées.
au lieu de
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 [2006.04.10 13:43:22 ] fichier done [2006.04.10 13:44:01 ] fichier done [2006.04.10 13:44:01 ] gfgdfgdge [2006.04.10 13:44:01 ] gfdfgfgdggdfdggfdg [2006.04.10 13:44:01 ] fichier done [2006.04.10 13:44:01 ] fichier done
Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 [2006.04.10 13:43:22] fichier done [2006.04.10 13:44:01] fichier done [2006.04.10 13:44:01] gfgdfgdge [2006.04.10 13:44:01] gfdfgfgdggdfdggfdg [2006.04.10 13:44:01] fichier done [2006.04.10 13:44:01] fichier done
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 package module_log; sub WriteLog{ my $txt = $_[0]; my $Dir = $balsa_conf::balsa_log_file; my $date = `date '+%m %d %H:%M:%S'`; my $LOG = "[$date] $txt"; print $LOG; # open (FIC,">>$Dir/balsa.log") || die ("Error writing Log file"); # print FIC "[$DATE] $txt\n"; # close(FIC); }
Si qqun a une idée du pkoi du comment.. Merci !
Partager