这在 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, 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);
关于regex - 如何从 C 在 Perl 5.12 中创建 qr//?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2685477/