[perl] temps écoulé depuis création fichier Résolu/Fermé

Question

Bonjour,

je souhaiterai enregistrer dans une variable le temps écoulé depuis la création du dernier fichier créé dans mon répertoire je m'explique :

il s'agirait d'effectuer cette opération 
$temps_ecoule = $date_actuelle - $date_creation_fichier;

Pour l'instant je récupère la date de création du fichier grace à  la commande `ls -l` sur laquelle j'effectue un split du champ qui m'intéresse.
puis je récupère la date du systeme.
Cependant je suis contraint de faire plein de conversion , ce qui rend le code long pour peu de chose , et je me rends compte que le résultat attendu est incorrect pour très peu.
J'utilise la conversion en secondes pour mes calculs grace a la commande "date +%s" de linux .

Existe-t-il une solution plus "aérée" ?

J'en profite pour remercier lami20j qui se penche souvent sur mes problèmes,

merci

tisba972 · Answer

je m'auto-réponds pour éventuellement donner la marche à suivre à ceuw qui aurait le même soucis ,
voici le code :

#!/usr/bin/perl

my $DOSSIER = "/home/baptiste";
my $TEMPS_ECOULE;

	$TEMPS_ECOULE = (-A $DOSSIER); # donne le temps en jour a virgule depuis derniere modif ( chgt dans le dossier)

	$TEMPS_ECOULE = $TEMPS_ECOULE*24*60*60;  # temps ecoule en seconde 

	print $TEMPS_ECOULE."
";

voila le travail

[perl] temps écoulé depuis création fichier

1 réponse

Discussions similaires