Làm thế nào tôi có thể sử dụng giá trị của một biến như là một mẫu glob trong Perl?

Question

Trong Perl, bạn có thể có được một danh sách các tập tin phù hợp với một mẫu:

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

Bây giờ, tôi muốn vượt qua mô hình như là một biến (vì nó được thông qua vào một chức năng). Nhưng điều đó không hoạt động:

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

readline() on unopened filehandle at ... 

Mọi đề xuất?

Answer 1

Sử dụng glob:

use strict; 
use warnings; 

ProcessFiles('*.txt'); 

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

Dưới đây là một lời giải thích cho lý do tại sao bạn nhận được cảnh báo, từ I/O Operators:

Nếu những gì các dấu ngoặc nhọn chứa là một biến vô hướng đơn giản (ví dụ: $ foo), sau đó biến đó chứa tên của tệp có tay để nhập từ .. . Nó được coi là sạch hơn để gọi hàm nội bộ trực tiếp như glob ($ foo), mà có lẽ đúng cách để có thực hiện nó ở nơi đầu tiên.)

Answer 2

Điều gì về gói nó bằng lệnh "eval"? Như thế này ...

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

Answer 3

Tại sao không chuyển tham chiếu mảng của danh sách tệp vào hàm?

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