从 Perl 中包含空或空白字符的数组中删除元素

Question

我想使用 map 或 grep 将数组 @x 转换为数组 @y。

@x = ('aa','', 'bb','    ','cc', "\t");
@y = ('aa','bb','cc');

我试过的：

#@x= grep {s/^\s+|\s+$//g} @x;  # not correct
@y = grep { $_ } @x;  # remove '' null character

请建议更好的方法来做到这一点，最好在一行中。

Answer 1

在我看来你只是想要

@y = grep /\S/, @x;