Discussion :

[PadawanInPerl]

Bonjour,

je cherche (...et ne trouve pas ) comment créer un fichier avec la date du jour.

Pourriez vous m'aider ?

[djibril]

A savoir sur les dates : http://perl.developpez.com/sources/?page=section3
Pour renommer un fichier, voir fonction rename.

[PadawanInPerl]

A savoir sur les dates : http://perl.developpez.com/sources/?page=section3
Pour renommer un fichier, voir fonction rename.

Merci Djibril pour la date c'est tout bon, j'ai bien cherché

mon problème est que c'est un fichier de sortie que je veux créer avec la date du jour...et non pas renommer un fichier existant.

[djibril]

C'est à dire ? Que fait actuellement ton code ?

[PadawanInPerl]

J'ai un fichier dans lequel je vais écrire des données.

Actuellement, je faisais :

Code :

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

open OUT, ">Sortie_BDD.txt" or die;

Or pour différencier des fichiers, plutôt que de les renommer ou d'inventer des noms de fichier de sortie, je souhaiterais qu'ils se démarquent tous seuls !

et j'ai pensé de créer des fichiers avec la date du jour...

j'ai essayé ça mais ....

Code :

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

1
2
3
4
5
open(PLUS,">$fic.txt") or die"open: $!";
 
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $dateUs =  $mday."-".($mon+1)."-".(1900+$year);
$fic="Periodique-non-reconnu".$dateUs;

je sais que c'est nul mais bon...on fait avec

[djibril]

Ce n'est pas un problème de nullité, mais juste de positionnement de codes .
Tu crées le fichier et ensuite change la variable de nom du fichier, normal que ton fichier n'est pas le nom souhaité !

Code :

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

1
2
3
4
5
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
my $dateUs = $mday . "-" . ( $mon + 1 ) . "-" . ( 1900 + $year );
$fic = "Periodique-non-reconnu" . $dateUs . '.txt';
 
open( PLUS, '>', $fic ) or die "open: $!";

Ce sera déjà mieux.

[PadawanInPerl]

Ce n'est pas un problème de nullité, mais juste de positionnement de codes .
Tu crées le fichier et ensuite change la variable de nom du fichier, normal que ton fichier n'est pas le nom souhaité !

Code :

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

1
2
3
4
5
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
my $dateUs = $mday . "-" . ( $mon + 1 ) . "-" . ( 1900 + $year );
$fic = "Periodique-non-reconnu" . $dateUs . '.txt';
 
open( PLUS, '>', $fic ) or die "open: $!";

Ce sera déjà mieux.

What else !


Merci beaucoup