亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: 請教關(guān)于引用的問題 [打印本頁]

作者: shs867 時間: 2011-02-05 10:50
標題: 請教關(guān)于引用的問題
如下一段代碼
#!/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 時間: 2011-02-05 19:21
是不是想這樣

#!/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 時間: 2011-02-05 20:01
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 時間: 2011-02-06 00:16
本帖最后由 yakczh 于 2011-02-06 00:28 編輯

好多的bless

$boy="張三";

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

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

bless就是春晚的魔術(shù)

作者: zhlong8 時間: 2011-02-06 11:40

好多的bless

$boy="張三";

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

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

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

歡迎光臨 Chinaunix (http://72891.cn/)