这在5.8和5.10中一直适用于我,但是在5.12中,我的代码创建了这个奇怪的非qr对象:
# running "print Dumper($regex)" $VAR1 = bless( do{\(my $o = '')},'Regexp' );
而打印不是由我的代码创建的qr //看起来像这样:
# running "print Dumper(qr/foo/i)" $VAR1 = qr/(?i-xsm:foo)/;
我的代码基本上是
REGEXP *rx = re_compile(pattern,flags); SV *regex = sv_2mortal(newSVpv("",0)); sv_magic(regex,(SV*)rx,PERL_MAGIC_qr,0); stash = gv_stashpv("Regexp",0); sv_bless(newRV((SV*)regex),stash);
任何人知道如何从5.12中的字符串正确创建正则表达式?
谢谢你把我放在正确的轨道上,人们,事实证明,我正在认真地反思这一点.他们只是切断魔术线,不要创造PV.
这是Perl 5.12中需要做的所有工作:
REGEXP *rx = re_compile(pattern,flags); SV *regex = newRV((SV*)rx); stash = gv_stashpv("Regexp",0); sv_bless(regex,stash);