在perl中，有没有一种简洁的方法来组合glob和printf？

Question

我希望 @list 包含 $root_dir 中与 *YYYYMMDD* 匹配的所有文件名，其中 YYYYMMDD 是 25 小时前。

我尝试……

my ($y, $m, $d) = (localtime(time - 25 * 60 * 60))[5,4,3]; 
my $pattern = sprintf('*%4d%02d%02d*',$y+1900,$m+1,$d);
print "The pattern is $pattern\n"; 
my @files = <$pattern>;
foreach (@files) {
    print "$_\n";
}

但我没有获取文件列表，而是在未打开的文件句柄上获取了 readline() 。

我知道<>运算符可以解释变量，因此 <$y$m$d>可以在一年最后三个月的三分之二的日子里工作，因为这些月份和日期都是两位数，但这并不可靠。

我必须写……

$m = sprintf('%02d',$m+1);  
$d = sprintf('%02d',$d+1);
my @files = <*$y$m$d*>;

还是有更简洁的东西？像...

# invalid code unless you want to produce the string "readline() on unopened filehandle" for some reason
my @files = <sprintf('*%4d%02d%02d*',$y+1900,$m+1,$d)>;

Answer 1

使用

my @files = glob($pattern);

<...> 运算符已经太重载了。具体来说，<$...>被视为文件句柄。

Answer 2

<> 可以表示 readline 或 glob，具体取决于它的使用方式。来自珀洛普：

如果尖括号包含的是一个简单的标量变量（例如，<$foo>），
那么该变量包含要输入的文件句柄的名称或其
typeglob，或对相同[...]的引用

如果尖括号内的内容既不是文件句柄也不是简单的标量
包含文件句柄名称、typeglob 或 typeglob 引用的变量，它是
解释为要通配的文件名模式 [...]

这种区别仅根据句法基础确定。 [强调我的]

由于 $pattern 是一个简单的标量，因此它被解释为作为句柄，Perl 尝试执行readline。直接调用 glob：

my @files = glob($pattern);

<> 的重载可能会有点混乱。如果您认为这是一种有趣的编写 iterator->next 的方式，这可能会有所帮助。 （readline 和 glob 都像标量上下文中的迭代器一样。）

Answer 3

有点多余，你可以使用 CPAN 中的东西来代替所有这些恶作剧：

use File::Find::Rule;

my @files = File::Find::Rule->file->name( $pattern )->in( $root_dir );