請教關(guān)于引用的問題

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的數(shù)組，但實際什么都沒有。大家能幫忙看看是什么問題嗎？想了很久百思不得其解。

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就是春晚的魔術(shù)

zhlong8

好多的bless

$boy="張三";

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

bless $boy ,"流氓";
$boy->耍 ...
yakczh 發(fā)表于 2011-02-06 00:16

    只有 引用 才能 bless 。而且 bless 無非就是加個標(biāo)簽，這算是在 Perl 的基本數(shù)據(jù)類型之上實現(xiàn) OO 最簡單的方法了吧