Perl

fonction pour lister les fichiers d'un repertoire

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : fonction pour lister les fichiers d'un repertoire

donny3

salut,

J'ai trouver cette fonction pour lister les fichiers

Code :

my ($repertoire) = @_;
my @fichiers = ();
opendir (my $rep_fh, $repertoire)
or die "impossible d'ouvrir le repertoire $repertoire\n";
my @file_rep = grep { !/^\.\.?$/ } readdir($rep_fh);
closedir ($rep_fh);
foreach my $nom (@file_rep) {
if ( -f "$repertoire/$nom" ) {
push (@fichiers, "$repertoire/$nom" );
}
}
return @fichiers;

mais le truc c'est que je ne comprend pas tres bien la partie apres le grep;
j'ai essayer de la modifier pour ne recuperer dans mon repertoire
que les fichier qui contienne "TNE" et ceux qui ne commence pas par "hbo" et "hba" mais elle me ramene tous les fichier dans le repertoire;

est ce que vous auriez une astuce ?

Merci

Publicité

donny3

j'ai essayer comme ceci
mais il me retourne tout alors que j 'ai bien fait un grep
foreach my $liste (@listes)
{
if (!grep( /^hbo$/, $liste ) or !grep( /^hba$/, $liste ) or grep( /^TNE$/, $liste ))
{
print "$liste \n";
}
}

Chti Manson

Steam: qL

et comme ça :

sub fonction
{

open(DOSSIER,"." );
my @entrees = readdir(DOSSIER);
closedir(DOSSIER);

edit, et pour ne récupèrer que ce qui t'intéresse tu utilises les regexp
du genre:

foreach $entrees (@entrees)
{
if $entrees =~m/\.extension$/

(...)

Message édité par Chti Manson le 02-04-2008 à 23:05:17

gilou

Modérateur
Modzilla

Les modules IO sont la pour ca (et idem pour Perl6)

Code :

use IO::Dir;

Par exemple ici, pour lister les fichiers du repertoire passé en ligne de commande

Code :

#!/usr/bin/perl -w
use warnings;
use strict;
print "$ARGV[0] n'est pas un repertoire\n" and exit unless (-e $ARGV[0] and -d _);
use IO::Dir;
my $d = IO::Dir->new($ARGV[0]);
if (defined $d) {
while (defined($_ = $d->read)) {
print $_, "\n" if (-f $_)
}
undef $d;
}

A+,

Message cité 1 fois
Message édité par gilou le 16-04-2008 à 21:17:21

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

slewnay

Bonjour

Juste une petite correction du code donnée par gilou car la liste des fichiers n'est pas dans le répertoire courant mais bien dans celui passé en paramètre ($ARGV[0]) :

gilou a écrit :

Les modules IO sont la pour ca (et idem pour Perl6)

Code :

use IO::Dir;

Par exemple ici, pour lister les fichiers du repertoire passé en ligne de commande

Code :

#!/usr/bin/perl -w
use warnings;
use strict;
print "$ARGV[0] n'est pas un repertoire\n" and exit unless (-e $ARGV[0] and -d _);
use IO::Dir;
my $d = IO::Dir->new($ARGV[0]);
if (defined $d) {
while (defined($_ = $d->read)) {
print $_, "\n" if (-f $ARGV[0]."/".$_)
}
undef $d;
}

A+,

gilou

Modérateur
Modzilla

Ou simplement faire un cd $ARGV[0] après avoir effectué la vérification initiale.
A+,

---------------
There's more than what can be linked! -- Iyashikei Anime Forever! -- AngularJS c'est un framework d'engulé! --

FORUM HardWare.fr

Programmation

Perl

fonction pour lister les fichiers d'un repertoire

Sujets relatifs
Générer des fichiers Excel en PHP sur un serveur Linux	[PHP] fonction ftp_ pour déplacer un fichier
[C#] Répertoire du projet courant à partir d'une librairie ?	passage de l'intérieur d'un tableau par référence dans une fonction ?
[Javascript] héritage entre classe dans des fichiers différents	lien entre 2 fichiers excel sous vba
Lister tous les processus en cours d'exécution	[Résolu][Ubuntu] Copie automatique de fichiers au branchement clé usb
Fonction pour convertir chaine ASCII en caracteres	[RESOLU] lister un répertoire dans l'ordre alphabétique
Plus de sujets relatifs à : fonction pour lister les fichiers d'un repertoire

Page générée en 0.090 secondes