Discussion :

[calimero642]

Bonjour,
je voudrais lister les tous les fichier en .pm et .pl du repertoire courant et les placer dans un tableau pour les reutiliser l un apres l autre.

voici on code mais il ne m interprete pas la commande find:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
#!/usr/bin/perl
use strict;
my $Affichage_PM="find . -name \"*.pm\";";
print "$Affichage_PM";
my @in = <STDIN>;
chomp(@in);
print "@in\n";

Merci d avance Jules

[GLDavid]

Bonjour

Il y a plus simple que d'utiliser la commande find avec les handles de répertoires

@++

[calimero642]

Pour moi les handle c est les descripteur de fichier a quoi ca va me servir ?? Dans ce cas ?
Jules

[GLDavid]

A peu de choses près, un code 100% Perl serait ceci :

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
 
#!/usr/bin/perl -w
 
use strict;
 
opendir DIR, "." or die "$!\n";
my @files = readdir DIR;
my @perl;
foreach my $file (@files){
        next if $file eq "." or $file eq "..";
        if($file=~/pl$/ or $file=~/pm$/){
                push(@perl, $file);
        }
}
foreach my $file (@perl){
        print $file;
}

@++

[calimero642]

Oki merci mais pour prouver que ca marche il manque une virgule apres le OPEN DIR, !
Merci ca marche trop bien
Jules

[Jedai]

On peut aussi écrire ça plus compact :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
#!/usr/bin/perl -w
 
use strict;
 
opendir DIR, "." or die "$!\n";
my @perl = grep {m/\.p[lm]$/i}  readdir DIR;
 
foreach my $file (@perl){
        print $file;
}

--
Jedaï