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 : Sélectionner tout - Visualiser dans une fenêtre à part
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