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

Résolu
tisba972 Messages postés 370 Statut Membre -  
tisba972 Messages postés 370 Statut Membre -
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
Configuration: Linux
Firefox 1.5.0.5

1 réponse

  1.
    tisba972 Messages postés 370 Statut Membre 44
     
    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."\n";

    voila le travail
    -1