如何在 Perl 中使用变量的值作为 glob 模式？

Question

在 Perl 中，您可以获得与模式匹配的文件列表：

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 运算符：

如果尖括号包含的是
一个简单的标量变量（例如，
$foo)，那么该变量包含
要输入的文件句柄的名称
从...直接调用内部函数作为 glob($foo) 被认为更干净，这可能是首先完成它的正确方法。）

Answer 2

为什么不将文件列表的数组引用传递给函数？

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

用“eval”命令包装它怎么样？像这样...

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