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 поля разделители вместо одного. может кто-нибудь сказать мне, где я ошибаюсь?

Answer 1

Ваше регулярное выражение представляет собой чередование двух пустых шаблонов. Вы можете использовать /\|/ для соответствия буквальному |.