perl - Perlで変数の値をグロブパターンとして使用するにはどうすればよいですか?

Question

Perl では、パターンに一致するファイルのリストを取得できます。

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

ここで、パターンを変数として渡したいと思います (関数に渡されるため)。しかし、それはうまくいきません:

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

readline() on unopened filehandle at ...

助言がありますか？

Answer 1

グロブを使用する：

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