请教反向引用变量无法参加算术运算的原因

cjxstudent

对于文本                    "RQ" VARCHAR(40 OCTETS) NOT NULL ,

想得到                  "RQ" VARCHAR(80 OCTETS) NOT NULL ,

但正则式            s/VARCHAR\((\d*)\s*OCTETS\)/VARCHAR( $1*2 OCTETS)/g;
只能得到           "RQ" VARCHAR(40*2 OCTETS) NOT NULL ,

请指教

yybmsrs

s/(\d+)/$1*2/e

jason680

回复 1# cjxstudent

s/VARCHAR\((\d*)\s*OCTETS\)/VARCHAR( $1*2 OCTETS)/g
s/(VARCHAR\()(\d+)(\s*OCTETS\))/sprintf("%s%d%s",$1,$2*2,$3)/eg
"RQ" VARCHAR(80 OCTETS) NOT NULL ,

   

cjxstudent

s/(VARCHAR\()(\d+)(\s*OCTETS\))/sprintf("%s%d%s",$1,$2*2,$3)/eg


谢谢楼上的热心人,但请问我原来的的正则式错在哪里呢?而您的正则式又为何可以纠正我的错误呢?,谢谢.

aku1

cjxstudent 发表于 2015-11-04 16:00
s/(VARCHAR\()(\d+)(\s*OCTETS\))/sprintf("%s%d%s",$1,$2*2,$3)/eg

你的是当字串处理，二楼在替换s后加了个e参数当运算符处理了，网上搜下就有答案了

104359176

Perl 语言替换操作 s/str/replace/ 中，replace 部分默认是一个字符串，但不能插入代码，像使用 string 一样：

1. my $str = '123';
   
2. $str =~ s/(\d)/{$1 * 2}/;

复制代码

系统会返回：

1. {1 * 2}23

复制代码

如果想插入代码，就要使用 /e 模式。

1. $str =~ s/(\d)/{$1 * 2}/e

复制代码

这次的结果是正确的：

1. 223

复制代码

sunzhiguolu

回复 1# cjxstudent
在使用 s/pattern/replace/e 操作符时, /e 修饰符的作用就是将 replace 部分作为 表达式 进行求值. (只是个人理解, 如有不对还请大家给予指正)

   

cjxstudent

谢谢楼上各位,今天再次翻了一下<<精通正则表达式>>,发现用逆序环视处理可读性更好.

s/(?<=VARCHAR\()(\d*)/$1*2/eg;