[PERL] sup des fichiers dans sous dossiers
Fermé
madmselle
-
25 oct. 2011 à 14:09
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 28 oct. 2011 à 22:18
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 28 oct. 2011 à 22:18
A voir également:
- [PERL] sup des fichiers dans sous dossiers
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Wetransfer gratuit fichiers lourd - Guide
- WeTransfer - Télécharger - Téléchargement & Transfert
- Ce fichier contient l'historique des livres empruntés à la bibliothèque. combien de titres différents contient-il ? ✓ - Forum Excel
- Fichiers temporaires windows 10 - Guide
1 réponse
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
28 oct. 2011 à 22:18
28 oct. 2011 à 22:18
Salut,
Pas besoin de créer un sous-programme pour recherche récursive.
C'est pour ça qu'on utilise la fonction find du module File::Find
Un exemple qui trouve le fichier file2 qui est créer le mois du juin.
Pas besoin de créer un sous-programme pour recherche récursive.
C'est pour ça qu'on utilise la fonction find du module File::Find
Un exemple qui trouve le fichier file2 qui est créer le mois du juin.
lami20j@debian-acer:~/dossier_test$ pwd
/home/lami20j/dossier_test
lami20j@debian-acer:~/dossier_test$ ls -lR .
.:
total 8
drwxr-xr-x 2 lami20j lami20j 4096 oct. 28 22:07 dossier_test_bis
-rw-r--r-- 1 lami20j lami20j 165 oct. 28 22:15 fic_ancien_plus_du_5mois.pl
./dossier_test_bis:
total 0
-rw-r--r-- 1 lami20j lami20j 0 oct. 24 00:00 file
-rw-r--r-- 1 lami20j lami20j 0 juin 2 00:00 file2
lami20j@debian-acer:~/dossier_test$ cat fic_ancien_plus_du_5mois.pl
#!/usr/bin/perl
use strict;use warnings;
use File::Find;
my $rep = "/home/lami20j/dossier_test";
find sub{ print $File::Find::name,"\n" if -M > 5}, $rep;
__END__
lami20j@debian-acer:~/dossier_test$ perl fic_ancien_plus_du_5mois.pl
/home/lami20j/dossier_test/dossier_test_bis/file2