Perl에서 변수의 값을 glob 패턴으로 사용하려면 어떻게해야합니까? 펄에서

Question

, 당신이 패턴과 일치하는 파일의 목록을 얻을 수 있습니다 : (이 함수에 전달 있기 때문에) 이제

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

을, 나는 변수로 패턴을 통과하고 싶습니다. 하지만 작동하지 않습니다 :

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

readline() on unopened filehandle at ... 

어떤 제안이 있습니까?

Answer 1

사용 glob : 여기

use strict; 
use warnings; 

ProcessFiles('*.txt'); 

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

당신이 경고 I/O Operators에서 얻을 이유에 대한 설명입니다

무엇을 꺾쇠 괄호 포함하는 경우 간단한 스칼라 변수 (예 : $ foo), 그 변수는 을 입력 할 파일 핸들의 이름 인 을 포함합니다. . 그것은 아마 처음부터 그것을 짓을 할 수있는 올바른 방법 인 글로브 ($ foo는)으로 직접 내부 함수를 호출 청소기 간주.), 지금, 지금, 지금이 작업을 수행하지

Answer 2

"eval"명령으로 래핑하는 것은 어떻습니까? 이렇게 ...

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

Answer 3

왜 파일 목록의 배열 참조를 함수에 전달하지 않습니까?

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