请帮解释一下这2个正则表达式

spirit_12

1. $escape_pass =~ s/'/'\\''/g;
   
2. $escape_pass =~ s|((?:'\\''){2,})|q{'"} . (q{'} x (length($1) / 4)) . q{"'}|ge; #'
   

复制代码

看不太懂上面的两个正则表达式。能给我讲讲么。谢谢。

第一个是把单引号，置换成【'\''】么？为什么？

zhlong8

第二个分隔符是 |，/g 表示全部匹配替换，/e 表示对替换成的那一部分要求值
所以匹配内容是 ((?:'\\''){2,}) 并捕获，这个RE不解释
替换成的内容是 q{'"} . (q{'} x (length($1)/4)) . q{"'} 这里只是简单的字符串连接， length $1 表示左边捕获部分的长度

liyangole

perl -e '$_="'abcde'";$_=~s/'/'\\''/g;print $_;' 找个例子看看就知道了。

spirit_12

回复 3# liyangole


    非常感谢啊。就是还不明白，怎么就所有字符前面都有【/】了呢？匹配单引号的话，只有最前和最后面啊

1. [root@example ~]# perl -e '$_="'abcde'";$_=~s/'/'\\''/g;print $_;'
   
2. \a\b\c\d\e\[root@example ~]#

复制代码

bernana

回复 4# spirit_12


    是呀。哪位大哥给解释下。是不是'\\''在正则里有特殊含义

CUN_GM

perl -e '$_="'abcde'";$_=~s/'/'\\''/g;print $_;'
\a\b\c\d\e\[root@example ~]

这个后面的''没有意义，代表空；
和这个 perl -e '$_="'abcde'";$_=~s/'/'\\/g;print $_;'
\a\b\c\d\e\[root@example ~]
是等价的，表示每个字符后面加个反斜杠，不知这样理解对不？

liyangole

回复 6# CUN_GM


    我也发现时这样了。诡异，等待高手，解释

bernana

回复  CUN_GM


    我也发现时这样了。诡异，等待高手，解释
liyangole 发表于 2011-01-19 17:11

    发现用\'代替'的话就会出现>等待输入的符号。所以我猜测这个'类似与一个指针一样的东西。读一个地址匹配一次。所以每个空地都会出现一个\

spirit_12

$escape_pass =~ s/'/'\\''/g;

谢谢各位啊。这个我好像明白了。
就是要把 单引号替换成【\'】
如果是 ‘abcd'
那么结果就是 \'abcde\'

至于上面那个结果成这样\a\b\c\d\e\，估计是在command line 的时候敲入单双引号，解释为hard quote和soft quote吧。

不知道说的对不对。

jason680

$_="'abcde'";$_=~s/'/'\\''/g;print $_;
这个只能放在code(档案中)--你用太多单/双引号...

加一个set -x,你就知道错在那

# set -x; perl -e '$_="'abcde'";$_=~s/'/'\\''/g;print $_;'; set +x
+ set -x
+ perl -e '$_="abcde";$_=~s//\\/g;print $_;'
\a\b\c\d\e\+ set +x

=======================================
# cat test.pl
$_="'abcde'";$_=~s/'/'\\''/g;print $_;

# perl test.pl
'\''abcde'\''