在Perl中如何在不使用XS的情况下写入调用者的变量？

发布时间：2020-12-15 21:49:38 所属栏目：大数据来源：网络整理

导读：我正在围绕一些旧代码编写单元测试,并发现需要围绕Apache2 :: Request的read()方法编写一个模拟器 my $r = Apache2::Request-new(...);$r-read(my $buf,$len); 有没有办法在Perl中编写一个函数来填充$buf？我很确定这样做的唯一方法是使用带有**的XS代码,但

我正在围绕一些旧代码编写单元测试,并发现需要围绕Apache2 :: Request的read()方法编写一个模拟器

my $r = Apache2::Request->new(...);

$r->read(my $buf,$len);

有没有办法在Perl中编写一个函数来填充$buf？我很确定这样做的唯一方法是使用带有**的XS代码,但我想我至少先问一下.

使用Apache2 :: Request直接导致了这一点,因此我想要嘲笑它.

perl: symbol lookup error: .../APR/Request/Apache2/Apache2.so: 
undefined symbol: modperl_xs_sv2request_rec

解决方法

在Perl子例程或方法中,参数通过@_数组传递.此数组中的元素是调用sub中变量的别名.

解压缩@_的常用方法是制作这样的副本：

my($self,$buf,$len) = @_;

因此,在这种情况下分配给$buf将不起作用,因为您只修改了变量的副本.但是,如果直接修改@_中的值,则会影响调用者的变量：

$_[1] = 'some data';

（编辑：李大同）

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