Discussion :

[neg12]

Bonjour,

je cherche à convertir une date au format unix (ex: 1346551425.510) vers un format %Y%m%d %h:%m:%s en perl (ex: 2012-09-12 09:12:24).
Un équivalent de date -d @$time +'%Y-%m-%d %T' en perl en fait.

Je peux pour le moment convertir une date du format unix vers le format local (ex: Thu Sep 13 10:21:31 CEST 2012) en utilisant Time:arseDate et la methode scalar, exemple de code:

Code :

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

1
2
3
4
5
6
 
use strict;
use Time::ParseDate;
 
my $time = 1346551425.510;
my $human_date = scalar(localtime($time));

Mais je n'arrive pas à obtenir le format %Y%m%d %h:%m:%s. Pouvez-vous me dire s'il est possible de la faire avec cette méthode (scalar)? ou peut-être connaissez-vous une autre méthode pour le faire?

Merci d'avance pour toute aide.

[djibril]

Bonjour,

Avez-vous jeté un coup d’œil dans la FAQ ?

[djibril]

Ceci est juste un exemple sans utiliser de module.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#!/usr/bin/perl
use strict;
use warnings;
 
my $RefDateActuelle = date(); # On recupere la réference d'un hash
my $time = 1346551425.510;
my $RefAutreDate    = date($time); # On recupere la réference d'un hash
 
 
print "Date actuelle : $RefDateActuelle->{date}\n"; 
print "Date correspondant au time $time : $RefAutreDate->{date}\n"; 
 
sub date {
  my $time = shift || time;    #$time par defaut vaut le time actuel
  my ( $seconde, $minute, $heure, $jour, $mois, $annee, $jour_semaine, $jour_annee, $heure_hiver_ou_ete )
    = localtime($time);
  $mois  += 1;
  $annee += 1900;
 
  # On rajoute 0 si le chiffre est compris entre 1 et 9
  foreach ( $seconde, $minute, $heure, $jour, $mois, $annee ) {
    s/^(\d)$/0$1/;
  }
 
  my %date = (
    "date"         => "$annee$mois$jour $heure:$minute:$seconde",
    "heure"        => "$heure:$minute:$seconde",
    "jour_semaine" => $jour_semaine,
    "jour_annee"   => $jour_annee,
    "hiverOuEte"   => $heure_hiver_ou_ete,
  );
  return \%date;
}

Date actuelle : 20120913 10:47:51
Date correspondant au time 1346551425.51 : 20120902 04:03:45

[djibril]

Ou en plus simple

Code :

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

1
2
3
use POSIX qw(strftime);
my $now_string = strftime "%Y%m%d %H:%M:%S", localtime(1346551425.510);
print $now_string;

[neg12]

POSIX qw(strftime) fait exactement ce que je voulait, merci beaucoup!
Je vais faire plus attention à la Faq la prochaine fois, j'étais passé à coté.