请教关于引用的问题

shs867

如下一段代码
#!/usr/bin/perl
package Test;
use strict;
use warnings;

sub new {
        my $class = shift;
        my $self = {
                ref_array => [],
                name => "",
        };
        bless($class, $self);
        return $self;

}

package main;
my $test = Test->new();
my @array;
$test->ref_array = \@array;

my $ref = $test->ref_array;
push(@array, 1, 2, 3, 4);

print @$ref;

期望输出1，2，3，4的数组，但实际什么都没有。大家能帮忙看看是什么问题吗？想了很久百思不得其解。

qinglangee

是不是想这样

#!/usr/bin/perl
package Test;
use strict;
use warnings;

sub new {
        my $class = shift;
        my $self = {
                ref_array => [],
                name => "",
        };
        bless( $self,$class);
        return $self;

}

package main;
my $test = Test->new();
my @array;
$test->{ref_array} = \@array;

my $ref = $test->{ref_array};
push(@array, 1, 2, 3, 4);

print @$ref;

zzy7186

try:
bless($class, $self);=>bless($self,$class);
$test->ref_array = \@array;
my $ref = $test->ref_array;
=>
$test->{'ref_array'}=\@array;
my $ref = $test->{'ref_array'};

yakczh

好多的bless

$boy="张三";

bless $boy ,"好人";
$boy->做好事();

bless $boy ,"流氓";
$boy->耍流氓();

bless就是春晚的魔术

zhlong8

好多的bless

$boy="张三";

bless $boy ,"好人";
$boy->做好事();

bless $boy ,"流氓";
$boy->耍 ...
yakczh 发表于 2011-02-06 00:16

    只有 引用 才能 bless 。而且 bless 无非就是加个标签，这算是在 Perl 的基本数据类型之上实现 OO 最简单的方法了吧