如何从Perl数组中提取长度为4的字符串组成子数组

要从给定的Perl数组里筛选出长度为4的字符串，用grep函数是最直接的方式，它能快速遍历数组并过滤符合条件的元素。

具体实现代码如下：

my @array = qw( zero one two three four five six seven eigth nine);
# 过滤出长度为4的元素
my @subarray = grep { length($_) == 4 } @array;

# 打印验证结果
print join(' ', @subarray); # 输出结果：zero four five nine

原理很简单：grep会依次取出@array中的每个元素（用$_指代当前元素），通过length($_) == 4判断元素长度是否为4，符合条件的元素会被自动收集到@subarray中。

内容的提问来源于stack exchange，提问作者Trí Trương