学写package时就遇到的问题？

yearnx

求教！

我写了个cocoa.pm

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. package cocoa;
   
5. 
   
6. 
   
7. sub new {
   
8. my $type = shift;
   
9. my %parm = @_;
   
10. my $this = [];
    
11. $this->;[0] = $parm{'Name'};
    
12. $this->;[1] = $parm{'x'};
    
13. $this->;[2] = $parm{'y'};
    
14. bless $this, $type;
    
15. return $this;
    
16. }
    
17. 1;
    

复制代码

然后这样调用：
#!/usr/bin/perl
push(@INC,"pwd";
use cocoa;
$mug=cocoa::new('Name'=>;'top','x'=>;10,'y'=>;20);
print "Name=$mug->;{'Name'}\n";
print "x=$mug->;{'x'}\n";
print "y=$mug->;{'y'}\n";

可是执行后，报错：
Can't coerce array into hash at test line 5.

还有一直没有办法理解bless到底干什么用，就是建立类和变量的关系么？
高手能不能用通俗的语言介绍下！
谢谢了~~~

angleeye

#!/usr/bin/perl

package cocoa;


sub new {
my $type = shift;
my %parm = @_;
my $this = [];
$this->;[0] = $parm{'Name'};
$this->;[1] = $parm{'x'};
$this->;[2] = $parm{'y'};
bless $this, $type;
return $this;
}
1;

$this 应该是hash的reference，不是array的reference,
要这样写
my $this = {} ; # hash reference
#[] 是array reference

Haskell

[quote]原帖由 "angleeye"]$this 应该是hash的reference，不是array的reference, [/quote 发表：

呵呵，严重错误。
$this 是指向什么的引用根本就没有规定。
而且看楼主的程序，$this 显然应该是一个数组的引用。

2楼主：你可以看看《Perl 语言编程》
或者找一下 flw 之前发表的一些回复（精华区中有）。

yearnx

我就是看了电子文档，不知道怎么办。才来问问的。哎~~~~帮下忙吧

angleeye

原帖由 "Haskell" 发表：

呵呵，严重错误。
$this 是指向什么的引用根本就没有规定。
而且看楼主的程序，$this 显然应该是一个数组的引用。

2楼主：你可以看看《Perl 语言编程》
或者找一下 flw 之前发表的一些回复（精华区中有）。

惭愧！

sub new {
my $type = shift;
my %parm = @_;
my $this = {};
$this->;{'Name'} = $parm{'Name'};
$this->;{'x'} = $parm{'x'};
$this->;{'y'} = $parm{'y'};
bless $this, $type;
return $this;
}
1;

偶是没有用过数组的引用。
确实不知道能bless,受教。

Haskell

原帖由 "angleeye" 发表：
bless $this, $type;
return $this;
}
1;

偶是没有用过数组的引用。
确实不知道能bless,受教。

建议你看看《高级 Perl 编程》，上面讲了一种使用数组的引用作为对象的方案。
事实上，通过 hash 引用来存储对象是一种简便、但是效率并不高的方法。
因为 hash 本身就有“键”->;“值”对这种天然的含义，因此用 hash 引用做对象时能够轻易地实现“属性名称”->;“属性值”这种语义，但是不知你有没有想过，这样的话每个对象都要保存一份属性名称，从而造成浪费。（设想一下同时存在成千上万个对象时的情形）。

另外一种情形，就是为了存储结构的可移植性。时间不早了，改天再继续。

af80

2楼主：你可以看看《Perl 语言编程》
或者找一下 flw 之前发表的一些回复（精华区中有）。

    

yearnx

谢谢楼上的各位，谢谢angleeye！！！

我知道了，bless后的$this是数组引用，所以return后。
在调用时：
print "Name=$mug->;[0]\n";
print "x=$mug->;[1]\n";
print "y=$mug->;[2]\n";

呵呵~~~~