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

Question

我有一个不应该超过20个字符的perl数组。有时，错误地输入较长的字符串。

如何“清理”这些较长字符串的perl数组？有没有办法长一点？像...这样的东西。

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

Answer 1

length获取字符串的长度。

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

Answer 2

另一种方法是使用map

以下是一个例子：

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