Fichier de Log : File_YYMMDD_HHMM.log

Bonjour,

J'essaie de faire un fichier Log du style Fichier_Log_YYMMDD_HHMM.log quand je démarre mon script.
J'ai donc commancé par ceci :

Code:

---

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

#!/usr/bin/perl use warnings; use strict; use POSIX;   (my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst) =localtime(time); $year += 1900; $year = sprintf("%02d", $year % 100);   $mon = $mon + 1 ; if ( $mon < 10 ) { $mon = sprintf("%02d", $mon % 100); }   if ( $mday < 10 ) { $mday = sprintf("%02d", $mday % 100); }   print "Fichier_Log\_$year$mon$mday\_$hour$min.log\n"

---

Pensez vous que ceci va fonctionner dans tous les cas ? ou y a t-il une manière plus facile?

Merci

Code:

---

1 2 3

use POSIX qw(strftime);   print strftime "Fichier_Log_%y%m%d_%H%M.log", localtime;

---

:P

Merci Philou,

J'ai donc fais ceci :

Code:

---

1 2 3 4 5 6 7 8

#!/usr/bin/perl use warnings; use strict; use POSIX qw(strftime);   my $log=print strftime "Fichier_Log_%y%m%d_%H%M.log", localtime;   print "$log\n";

---

J'ai le le résultat suivant :
Fichier_Log_110329_1043.log1

C'est quoi ce 1 après log ???

SI je transforme ma commande comme ceci :

Code:

---

my $log=strftime "Fichier_Log_%y%m%d_%H%M.log", localtime ;

---

Le 1 disparait ..... :oops:

Encore merci

C'est tout à fait normal.
Dans ta première écriture, tu fais un print de strftime ... et tu mets le résultat du print (1) dans $log, que tu affiches alors sur la ligne qui suit.

Dans ta seconde écriture, tu as supprimé print, qui ne servait qu'à afficher le nom du fichier (sans l'affecter à $log).