Perl连接和拆分操作

Question

我尝试了一个小测试:替换x为x|y|z|a,w 所以我试过:

echo "x|y|z|a" | perl -lne '@arr=split /|/;$arr[0]='w';$_=join "|",@arr;print $_;'

它给了我:

> echo "x|y|z|a" | perl -lne '@arr=split /|/;$arr[0]='w';$_=join "|",@arr;print $_;'
w|||y|||z|||a
>

令人惊讶的是,它提供了3个字段分隔符而不是1个.任何人都可以告诉我我哪里错了？

Answer 1

正则表达式是两个空模式之间的交替.您可以使用/\|/匹配文字|.