Comment utiliser la valeur d'une variable comme motif global en Perl ?

Question

En Perl, vous pouvez obtenir une liste de fichiers correspondant à un motif :

my @list = <*.txt>;
print  "@list";

Maintenant, j'aimerais passer le motif en tant que variable (parce qu'il est passé dans une fonction). Mais cela ne fonctionne pas :

sub ProcessFiles {
  my ($pattern) = @_;
  my @list = <$pattern>;
  print  "@list";
}

readline() on unopened filehandle at ...

Des suggestions ?

Answer 1

Utilisation glob :

use strict;
use warnings;

ProcessFiles('*.txt');

sub ProcessFiles { 
  my ($pattern) = @_; 
  my @list = glob $pattern;
  print  "@list"; 
} 

Voici une explication de la raison pour laquelle vous recevez l'avertissement, provenant de Opérateurs d'E/S :

Si ce que les crochets contiennent est une simple variable scalaire (par ex, $foo), alors cette variable contient le nom du fichier à saisir il est considéré comme plus propre d'appeler la fonction interne directement en tant que glob($foo), ce qui est probablement la bonne façon de le faire en premier lieu).

Answer 2

Pourquoi ne pas passer la référence du tableau de la liste des fichiers à la fonction ?

my @list = <*.txt>;
ProcessFiles(\@list);

sub ProcessFiles {
    my $list_ref = shift;
    for my $file ( @{$list_ref} ) {
        print "$file\n";
    }
}

Answer 3

use File::Basename;
@ext=(".jpg",".png",".others");
while(<*>){
 my(undef, undef, $ftype) = fileparse($_, qr/\.[^.]*/);
 if (grep {$_ eq $ftype} @ext) {
  print "Element '$ftype' found! : $_\n" ;
 }
}

Answer 4

Pourquoi ne pas l'entourer d'une commande "eval" ? Comme ceci...

sub ProcessFiles {
  my ($pattern) = @_;
  my @list;
  eval "\@list = <$pattern>";
  print @list;
}