perl替换问题

ruifox

文件file内容如下：
123\|||456
需要替换成123||456

用sed 可以实现：
sed 's/\\|||/||/' file

但perl却有问题：
perl -p -e 's/\\|||/||/' file
结果：
||123\|||456

请教各位：用perl如何写？谢谢！

blackold

try:

perl -pe 's/\\\|//'

yizuwei520

do you learn perl now?

ruifox

原帖由 blackold 于 2009-7-3 09:38 发表
try:

试了试！三个不行，需要5个，

1. echo "123\|||456"|perl -pe "s/\\\\\|//"

复制代码

可能又是版本问题！

1. perl -v
   
2. 
   
3. This is perl, v5.6.0 built for i486-pc-sco3.2v5.0

复制代码

我又试了试两个\的情况！发现也是五个，哪位大侠解释一下先！

1. echo "123\\|||456"|perl -pe "s/\\\\\|//"

复制代码

ruifox

原帖由 yizuwei520 于 2009-7-3 14:33 发表
do you learn perl now?

是啊！赶个时髦！

ulmer

原帖由 ruifox 于 2009-7-3 09:36 发表
文件file内容如下：
123\|||456
需要替换成123||456

用sed 可以实现：
sed 's/\\|||/||/' file

但perl却有问题：
perl -p -e 's/\\|||/||/' file
结果：
||123\|||456

请教各位：用perl如何写？ ...

perl regexp not equal sed!
"|" in perl regex is a bitwise operator, you should use "\" to escape it!

meihuaqi

楼上正解，“|” 在pel正则表达式中表示“或”，是特殊字符