Discussion :

[leon1983]

Bonjour,

Je voudrais savoir comment convertir en format date lisible la valeur renvoyée par -M $mon_fichier

Dans mon code j'utilise

Code :

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

 $last_mod_time = -M $file;

et j'aimerai exploiter $last_mod_time en format MMHH.

merci pour votre aide

[Gardyen]

Ce topic a été ajouté à la FAQ récemment.

-M te renvoie une durée en jours, on pourrait donc utiliser une partie de la fonction ci-dessus en convertissant en secondes

Hope this helps !

[Philou67430]

Comme la documentation "perldoc perlfunc" l'indique, -M retourne

Script start time minus file modification time, in days.

Par ailleurs la documentation "perldoc perlvar" indique que :

$^T The time at which the program began running, in seconds since
the epoch (beginning of 1970). The values returned by the -M,
-A, and -C filetests are based on this value.

On a donc :

-M $file (en jour) = $^T (en s) - modified_date($file) (en s)

et donc

modified_date($file) = $^T - 86400*(-M $file)

Pour finir, modified_date est fourni en seconde depuis Epoch, ce qui n'est pas pratique. Pour l'avoir en clair (en chaine), il suffit d'utiliser la fonction localtime (perldoc -f localtime) dans un contexte de chaine pour avoir le résultat :

Code :

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

1
2
$ perl -E 'say "".localtime($^T-(86400*-M "file.xbm"))'
Thu Jan 31 10:45:54 2013

La même en prenant en compte la locale (ici, choix de la locale fr_FR) :

Code :

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

1
2
3
 
$ perl -MPOSIX=setlocale,strftime -E 'setlocale(LC_TIME, "fr_FR"); say strftime "%a %b %e %H:%M:%S %Y", localtime($^T-(86400*(-M "file.xbm")))'
jeu. janv. 31 10:45:54 2013

[leon1983]

J'ai résolu mon problème.
Merci pour votre aide !