¿Cómo puedo usar el valor de una variable como un patrón glob en Perl?

Question

En Perl, se puede obtener una lista de los archivos que coinciden con un patrón:

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

Ahora, me gustaría pasar el patrón como una variable (porque se pasa a una función). Pero eso no funciona:

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

readline() on unopened filehandle at ... 

¿Alguna sugerencia?

Answer 1

Uso glob:

use strict; 
use warnings; 

ProcessFiles('*.txt'); 

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

Aquí es una explicación de por qué se obtiene la advertencia, de I/O Operators:

Si lo que los paréntesis angulares contienen es una variable escalar sencilla (por ejemplo, $ foo), entonces esa variable contiene el nombre del identificador de archivo para ingresar de .. . Se considera más limpio para llamar a la función interna directamente como glob ($ foo), que es probablemente la manera correcta de haberlo hecho en el primer lugar.)

Answer 2

¿Qué hay de envolverlo con un comando "eval"? De esta manera ...

Answer 3

¿Por qué no pasar la referencia de matriz de la lista de archivos a la función?

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" ; 
} 
}