正则表达式 – 如何在C中的Perl 5.12中创建一个qr //？

发布时间：2020-12-14 06:29:56 所属栏目：百科来源：网络整理

导读：这在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

这在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);

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!