Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
2149 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

  Récupération fichier plus récent

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Récupération fichier plus récent

n°2236573
coolkis
Posté le 29-08-2014 à 12:21:11  profilanswer
 

Bonjour,
 
Est-il possible de récupérer dans une variable le fichier le plus récent d'un répertoire ?
 
Merci d'avance.

mood
Publicité
Posté le 29-08-2014 à 12:21:11  profilanswer
 

n°2236614
gilou
Modérateur
Modzilla
Posté le 29-08-2014 à 18:34:48  profilanswer
 

A priori, je ferais comme suit:
- faire opendir sur le répertoire
- créer un couple de variables nom de fichier et temps pour stocker le résultat
- boucler et pour chaque entrée qui est un fichier (-f) récupérer le temps de la dernière modification (stat)
- comparer avec le temps stocké, s'il est postérieur, stocker le nom et temps de dernière modif à la place de ceux stockés
- une fois la boucle terminée faire un closedir
=> on a le nom du fichier qui est stocké dans la variable ad hoc.
 
A+,


---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --    In umbra igitur pugnabimus. --
n°2236636
gilou
Modérateur
Modzilla
Posté le 30-08-2014 à 10:54:42  profilanswer
 

Bref un truc dans ce style ci:

Code :
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use autodie;
  5. use Cwd;
  6.  
  7. my $dir = './bat';  # a remplacer par le nom du répertoire voulu
  8. my $file;
  9. if (opendir(my $dh, $dir)) {
  10.  my $old_dir = getcwd();
  11.  chdir($dir);
  12.  my $ftime = 0;
  13.  foreach (readdir($dh)) {
  14.    if (-f) {
  15.      if ((stat)[9] > $ftime) {
  16.         $file = $_;
  17.         $ftime = (stat)[9];
  18.      }
  19.    }
  20.  }
  21.  closedir($dh);
  22.  chdir($old_dir);
  23. }
  24. print $file if defined($file);
 

A+,


Message édité par gilou le 30-08-2014 à 10:56:06

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --    In umbra igitur pugnabimus. --
n°2236748
coolkis
Posté le 01-09-2014 à 13:26:03  profilanswer
 

bonjour Gilou,
 
Merci beaucoup encore car c'est exactement ce qu'il me fallait.
 
A+


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

  Récupération fichier plus récent

 

Sujets relatifs
peupler une ontologie a partir d'un fichier xmiFichier bloqué par 1&1, vous parait-il normal ?
Script affichage taille fichierrécupération programme xilinx xc8536xl
Ecrire dans un fichier binaireconversion de fichier .cds -> .xls
affichage de fichier XML en JFrame (zone de texte)Remplacer un \ avec un / dans un chemin de fichier
comment installer des clé avec un fichier .batCréation d'un fichier de sauvegarde sous Word
Plus de sujets relatifs à : Récupération fichier plus récent


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR