2

我正在模块化我的代码，但是当我移出sub它的原始模块时，我收到以下错误：

Couldn't load application from file "foo.pl": Not an ARRAY reference at D.pm line 10.

这是原始文件。照原样，一切正常：

FormerC.pm：

package FormerC;

use strict;

my %my_hash = ( key => 'value' );
my @my_array = qw( some strings inside array );

sub problematic_sub {
  my ($hash_ref, $array_ref) = @_;

  my @an_array = @$array_ref;

  return \@an_array;
};

sub uses_problematic_sub {
  problematic_sub(\%my_hash, \@my_array);
};

uses_problematic_sub();

1

这是两个新模块。有了这些，我得到了错误：

D.pm：

package D;

use strict;

sub new { bless {}, shift };

sub problematic_sub {
  my ($hash_ref, $array_ref) = @_;

  my @an_array = @$array_ref;

  return \@an_array;
};

1

C.pm：

package C;

use strict;

use D;
my $d = D->new;

my %my_hash = ( key => 'value' );
my @my_array = qw( some strings inside array );

sub uses_problematic_sub {
  $d->problematic_sub(\%my_hash, \@my_array);
};

uses_problematic_sub();

1
4

2 回答 2

5

你曾经以替补problematic_sub身份打电话

problematic_sub(\%my_hash, \@my_array);

但你现在调用 is 作为一种方法：

$d->problematic_sub(\%my_hash, \@my_array);

由于您没有将代码编码problematic_sub为方法，因此这是不正确的。您还需要将problematic_sub's 参数更改为以下内容：

my ($self, $hash_ref, $array_ref) = @_;
于 2013-01-11T00:53:59.937 回答
4

Exporter使用模块将子例程名称导出到调用代码的命名空间可能会更好。你这里写的是一个面向对象的模块，但是对象只是子程序的集合，不需要面向对象的支持。

问题是这样的方法调用

$d->problematic_sub(\%my_hash, \@my_array)

隐式将对象作为第一个参数传递，因此相当于

D::problematic_sub($d, \%my_hash, \@my_array)

您需要做的就是在子例程中考虑到这一点

sub problematic_sub {

  my ($self, $hash_ref, $array_ref) = @_;

  my @an_array = @$array_ref;

  return \@an_array;
}

你的代码应该可以工作。

另请注意，子例程声明（如whileorfor循环）不是语句，因此不需要也不应该在其后加上分号。

于 2013-01-11T00:51:18.240 回答