Discussion :

[olivier1969]

Bonjour à tous ,

Je cherche à récupérer dans un répertoire donné le nom du dernier fichier ( en date ) .

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_acnt
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_acnta
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_acnta_sav
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_acnt_sav
-rw-rw-r-- 1 cftsupe1 platine 13036 27 oct.  08:07 cftalog
-rw-rw-r-- 1 cftsupe1 platine 32448 25 oct.  23:59 cftalog_sav
-rw-rw-r-- 1 cftsupe1 platine     0 26 oct.  23:59 cftlog
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_log
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_loga
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_loga_sav
-rw-rw-r-- 1 cftsupe1 platine     0  5 août   2014 cft_log_sav
-rw-rw-r-- 1 cftsupe1 platine 32397 26 oct.  23:59 cftlog_sav

Après plusieurs tentatives avec la fonction glob je sèche.
Merci pour votre aide.

[Philou67430]

Tu peux faire une recherche dans le répertoire avec glob (ou bsd_glob) et utiliser l'opérateur -M (âge du fichier) pour opérer un tri sur le résultat.
Exemple :

Code :

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

1
2
3
4
my @dir = glob("$dir/*");
my @sorted_dir = sort { -M $a <=> -M $b } @dir;
say "Fichier le plus récent : ", $sorted_dir[0];
say "Fichier le plus ancien : ", $sorted_dir[-1];

(Je n'ai pas testé ce code).

[Lolo78]

++ avec Philou.

Ou sous la forme d'un uniligne:

Code :

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

1
2
3
 
$ perl -E '$d =  (sort { -M $a <=> -M $b }  glob "./*.*")[0]; say $d;'
./fq_files.pl

[CosmoKnacki]

Sans tableau avec opendir:

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
my $lastModified;
my $filename;
 
my $path = './dossier1/dossier2';
 
opendir(my $fh, $path) or die ("The path '$path' doesn't exist");
 
while(readdir($fh)) {
    next unless (-f "$path/$_");
 
    if ( !defined($lastModified) || $lastModified > -M ) {
        $lastModified = -M;
        $filename = $_;
    }
}
 
defined($filename) or die ("The path '$path' doesn't contain any file");
 
print $filename;

[dmganges]

Code :

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

1
2
my $var = `ls -tr1 | head -1`;
print $var;

Mais si le plus ancien est un répertoire, il me semble que ça ramène le nom du répertoire
Me souviens plus
Pas le temps de tester

Si le répertoire ne contient que des fichiers ça peut suffire...

Ceci semble OK pour sélectionner seulement les fichiers :

Code :

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

ls -ftr1 | head -1

Comme ceci pour les répertoires :

Code :

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

ls -dtr1 | head -1

A VOIR...

[Lolo78]

Sans tableau avec opendir:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
...
opendir(my $fh, $path) or die ("The path '$path' doesn't exist");
 
while(readdir($fh)) {
    next unless (-f "$path/$_");
    if ( !defined($lastModified) || $lastModified > -M ) {
        $lastModified = -M;
        $filename = $_;
    }
}
...

OK, pourquoi ne pas utiliser un itérateur plutôt qu'un tableau?

Mais tout de même, je préférerais itérer sur les valeurs renvoyées par glob plutôt qu'utiliser opendir et readdir, tout de même nettement moins pratiques.

[olivier1969]

++ avec Philou.

Ou sous la forme d'un uniligne:

Code :

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

1
2
3
 
$ perl -E '$d =  (sort { -M $a <=> -M $b }  glob "./*.*")[0]; say $d;'
./fq_files.pl

Merci à Philou et Loulou , fonctionne à merveille dans le repertoire courant avec

Code :

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

1
2
 
$d =  (sort { -M $a <=> -M $b }  glob "*")[0];

Pile poil ce qu'il me fallait

[Philou67430]

Pour palier au fait qu'un dossier peut contenir des sous-dossiers (comme le souligne dmganges), on peut ajouter un petit filtre :

Code :

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

my @dir = grep -d, glob("$dir/*");

[CosmoKnacki]

OK, pourquoi ne pas utiliser un itérateur plutôt qu'un tableau?

En fait je me dis qu'en appliquant sort à l'itérateur glob(), on créé forcément un tableau. C'est ce que je voulais éviter.

Bien évidemment, on peut faire la même chose en utilisant glob:

Code :

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

perl -E'-f&&(!$l||$l>-M)&&($l=-M)&&($f=$_)for(<.* *>);say $f'

Mais tout de même, je préférerais itérer sur les valeurs renvoyées par glob plutôt qu'utiliser opendir et readdir, tout de même nettement moins pratiques.

L'avantage avec opendir/readdir ici est de différencier les cas où le chemin n'existe pas, des cas où le répertoire ne contient aucun fichier.

[olivier1969]

Merci pour toutes ces infos !

Précisions dans mon cas , pas de sous répertoire et forcement existence dudit répertoire et de fichiers (logs) à l’intérieur de celui ci , ce qui me facilite bien les choses .

Mais je garde tout ça "sous le coude" , on ne sais jamais

Merci encore à tous


PS : glob est franchement mal documenté

[Lolo78]

En fait je me dis qu'en appliquant sort à l'itérateur glob(), on créé forcément un tableau. C'est ce que je voulais éviter.

Je crois que je me suis mal exprimé. Je voulais dire qu'utiliser un itérateur est effectivement une bonne idée. Et chercher le max ou le min est plutôt mieux, d'un point de vue algorithmique, que trier toutes les valeurs. Cela dit, si le code avec un sort est plus bref et plus simple à écrire, ça peut aussi être un avantage (moins de temps perdu à coder, donc moins cher.

glob présente l'avantage de filtrer naturellement les répertoires "." et "..", d'avoir une syntaxe bien plus concise, et de conserver le chemin relatif des fichiers. Pour le reste, chacun peut voir midi à sa porte.