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

Question

我有一个perl数组,其中不应超过20个字符.有时,错误地输入较长的字符串.

如何"清理"这些较长字符串的perl数组？有没有办法长一点？就像是..

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

Answer 1

length 获取字符串的长度.

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