在 Perl 中使用 grep 过滤目录列表

Question

我无法让 Perl grep 命令过滤目录列表。我花了一段时间四处寻找并尝试新事物，但无法让它运行。

代码如下：

$findcikstr = "!/" . $cik . "-10-K-" . $cikyear . "........./"; #(!/1534155-10-K-2013........../)
 @array = grep($findcikstr, <*>);

我无法让它过滤任何结果。

我正在寻找的模式是针对特定的 CIK（7 位数字）和年份来查找表单的所有文件

#######-10-K-YYYY*.txt

CIK 是#######，年份是 YYYY。完整的文件名是

1534155-10-K-2013-10-29.txt

Answer 1

你的表达式是一个真实的字符串，它总是计算为真，这意味着你会取回你传入的所有列表元素。

my @filtered = grep { /^$cik-10-K-$cikyear/ } <*>;