Discussion :

[ustilago]

Hello,

Bon, j'avais vu dans un des fils ici que l'on pouvait utiliser localtime pour récupérer la date courante. Je me dis cool, pour générer un nom de fichier c'est plustôt intéressant !!

Mais la syntaxe est plutôt du genre pas super triviale, et d'ailleurs erronée dans le-dit fil, bref, il m'a fallu un moment pour maîtriser la bête !

Donc je veux un nom de fichier du genre ANNEEMOISJOUR, j'y arrive ainsi :

Code :

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

1
2
3
$tmpo= 1900+(localtime)[5];
$tmpo= $tmpo.(localtime)[4]+1;
$tmpo= $tmpo.(localtime)[3];

Mais je ne trouve pas cela satisfaisant, est-il possible d'obtenir le même résultat en une seule ligne ??

Usti

[tfe]

j ai rien trouve de vraiment genial, appart

Code :

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

 perl -e '$_ = localtime(); s/[a-zA-Z]+ ([\S]+) (\d+) [\d\:]+ (\d+)/$3$1$2/g;  print ; '

[djibril]

encore plus long, mais plus pratique, tu mets ton code dans un sous prog.

Code :

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

1
2
3
4
5
6
7
sub date {
  my @tab_date =localtime(time);
  my $jour = $tab_date[3];
  my $mois = ($tab_date[4]+1);
  my $annee =  ($tab_date[5]+1900);
return "$annee$mois$jour";
}

[2Eurocents]

Bonjour,

Donc je veux un nom de fichier du genre ANNEEMOISJOUR, j'y arrive ainsi :

Code :

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

1
2
3
$tmpo= 1900+(localtime)[5];
$tmpo= $tmpo.(localtime)[4]+1;
$tmpo= $tmpo.(localtime)[3];

Mais je ne trouve pas cela satisfaisant, est-il possible d'obtenir le même résultat en une seule ligne ??

Tu as raison, ce n'est pas satisfaisant

Au moins pour une raison simple : tu fais trois appels distincts à la fonction localtime pour récupérer trois informations. Le problème, c'est que le temps passe, pendant ce temps là ...

Imagine le pire ... le script tourne le 31/12/2005, à 23h59:59.9999 ...

Le premier localtime te donne 2005, pour l'année.
Le temps passe (ton script peut même être bloqué le temps qu'une autre tâche du système passe) et le jour change ...
Les deux derniers localtime te donnent alors 01/01.

Super, nous sommes le 31/12/2005 ou le 01/01/2006 et le script nomme le fichier 20050101


Le faire en une seule ligne, je ne suis pas sûr que ce soit l'idéal ...

Mais le faire avec un seul appel à localtime et un traitement ensuite, c'est plus efficace.

Traitement court :

Code :

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

1
2
3
4
my (undef, undef, undef, $jour, $mois, $annee) = localtime(time);
my $printdate = (1900 + $annee) . (1 + $mois) . $jour;
 
print "$printdate\n";

Traitement long (en utilisant des tranches de hachages pour donner une indexation façon "structures" au tableau de résultats avec deux lignes de "préparation/déclaration") :

Code :

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

1
2
3
4
5
6
7
my @lt_fields = qw (sec min hour mday mon year wday yday isdst);
my %ma_date;
 
@ma_date{@lt_fields} = localtime(time);
my $printdate = (1900 + $ma_date{year}) . (1 + $ma_date{mon}) . $ma_date{mday};
 
print "$printdate\n";

[ustilago]

Merci pour vos réponses, je vais partir sur la première solution de 2Eurocents.

Effectivement j'avais pas percuté qu'il pouvait se passer du temps entre les appels sur des lignes différentes, mais en fait le cas catastrophe ne pouvait pas se passer (enfin du moins dans mon script actuel) vu qu'en fait c'est pour expoloiter des fichiers de sortie d'un autre programme, donc je le lance manuellement, c'est juste pour pas que mes fichiers générés s'écrasent malencontreusement ... je sais pas si je suis clair .

Usti