arrays - 如何从 perl 数组中删除长元素？

Question

我有一个 perl 数组，其中不应包含超过 20 个字符的内容。但是，有时会错误地输入更长的字符串。

如何“清除”这些较长字符串的 perl 数组？有没有办法grep长度？就像是..

@blurbs = grep([size<=20],@blurbs);

Answer 1

length获取字符串的长度。

@blurbs = grep { length($_) <= 20 } @blurbs;

Answer 2

另一种方法是使用地图

这是一个例子：

my @clean = map { length($_) <= 20 ? $_ : () } @blurbs;