为什么我的Perl地图没有返回任何内容？

Question

当我运行以下语句时:

@filtered = map {s/ //g} @outdata;

它返回一个空列表而不是我期望的过滤列表.我想要做的是 从字符串数组中删除每一个字符串(这是一个XML文件).

显然,我不理解某事.任何人都可以告诉我这样做的正确方法,以及为什么这对我不起作用？

Answer 1

请注意,map也将修改源数组.所以你可以这样做:

map {s/ //g} @outdata;

并完全跳过@filtered变量,或者如果你需要保留原件,

@filtered = @outdata;
map {s/ //g} @filtered;

虽然,在这种情况下,使用foreach可能更具可读性:

s/ //g foreach @filtered;

Answer 2

试试这个:

@filtered = map {s/ //g; $_} @outdata;

问题是perl中的s运算符修改了$ _但实际上返回了它所做的更改次数.因此,最后额外的$ _会导致perl为@outdata的每个元素返回修改后的字符串.

Answer 3

Greg的答案有一个问题,它会修改原始数组,因为$ _被传递别名.你需要:

@filtered = map { (my $new = $_) =~ s/ //g; $new} @outdata;

Answer 4

为了跟进Tithonium的观点,这也可以解决问题:

@filtered = map {local $_=$_; s/ //g; $_} @outdata;

"本地"确保您正在处理副本,而不是原件.

Answer 5

在perl 5.14中,您可以使用/ r regex修饰符进行非破坏性替换.

@filtered = map {s/ //gr} @outdata;