如何从 C 在 Perl 5.12 中创建 qr// ？

Question

这在 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 中字符串的正则表达式？

Answer 1

谢谢你们让我走上正轨，伙计们，事实证明我想得太多了。他们只是剪掉了魔法线，并没有创建PV。

这就是您在 Perl 5.12 中需要做的全部事情：

REGEXP *rx = re_compile(pattern, flags);
SV *regex = newRV((SV*)rx);

stash = gv_stashpv("Regexp", 0);
sv_bless(regex, stash);

Answer 2

看看 这个由霍布斯回答。为了方便阅读，我将其复制如下：

Regex 对象实际上在 5.12.0 中变得更加“核心”，因为它们现在是对 REGEXP 类型的标量的引用，而不是对带有魔法的标量的引用。然而，这对于用户代码来说是完全不可见的，除非您设法绕过重载的字符串化，在这种情况下您会注意到正则表达式现在打印为 Regexp=REGEXP(0x1234567) 而不是 Regexp=SCALAR(0x1234567)

我不是特别喜欢熟悉 XS，但我怀疑您不能再使用标量值来创建正则表达式。

Answer 3

Perl 5.12 将正则表达式更改为一流对象，您可以在 如何检查标量中是否包含已编译的正则表达式？。

我不是 XS 人，所以我不知道您需要在代码中更改哪些内容才能使其正常工作。在 perl 源代码中搜索“REGEXP”会显示他们对核心模块进行的修复以使用新内容。