Come posso usare il valore di una variabile come modello glob in Perl?

Question

In Perl, è possibile ottenere un elenco di file corrispondenti a un modello:

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

Ora, mi piacerebbe passare il modello come una variabile (perché è passato in una funzione). Ma questo non funziona:

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

readline() on unopened filehandle at ... 

Qualche suggerimento?

Answer 1

Uso glob:

use strict; 
use warnings; 

ProcessFiles('*.txt'); 

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

Ecco una spiegazione del motivo per cui si ottiene il messaggio di avviso, da I/O Operators:

Se le parentesi angolari contengono è una semplice variabile scalare (ad esempio, $ pippo), quindi quella variabile contiene il nome del filehandle per immettere da .. . È considerato più pulito chiamare la funzione interna direttamente come glob ($ foo), che è probabilmente il modo giusto per averlo fatto in primo luogo.)

Answer 2

Che ne dici di un pacchetto con un comando "eval"? In questo modo ...

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

Answer 3

Perché non passare il riferimento di matrice dell'elenco di file alla funzione?

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

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

Answer 4

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