Perl正则表达式：如何在正则表达式中插入程序？

[proorck6]

我听说可以在正则表达式中插入程序，请问如何？给个例子，说明一下，please...

[iambic]

不是太确定什么是“插入程序”，这个意思吗：

my $name = 'sb';
$name =~ s/\w+/ print "I'm $&" /e;

[codesnail]

[Quote=引用 1 楼 iambic 的回复:]
不是太确定什么是“插入程序”，这个意思吗：

Perl code
my $name = 'sb';
$name =~ s/\w+/ print "I'm $&" /e;
[/Quote]
太幽默了，我肚子都疼了。。。。

另：楼主确定自己想要提问什么吗？

[proorck6]

(?{...}) 执行嵌入的Perl代码
在《Perl语言编程》里有这一句，不知道是什么意思

[fibbery]

[Quote=引用楼主 proorck6 的回复:]
我听说可以在正则表达式中插入程序，请问如何？给个例子，说明一下，please...
[/Quote]
不懂你的意思。能不能举个例子来说明你要做的事情？

[proorck6]

my $name = 'sb';
$name =~ /(?{print "I am bs!"})/;

[iambic]

既然早已经知道是(?{...})了，就没有必要问了吧……自己试下就应该可以搞明白了。

[proorck6]

可是我现在除了print之外什么也不会，内插的代码应该可以影响正则表达式匹配的过程，或者说给正则表达式编程，这是我想问的。

[codesnail]

(??{"abc"."def"})
两个？？的才会把执行的结果内插到正则当中。。。。
你写的只是把结果存储到$^R当中而已。

[codesnail]

"abcdef" =~ m/(??{"abc"."def"})/ 返回真

[codesnail]

楼主可以看 《精通正则表达式》，都看懂就是专家了。。。。。。