求解一个perl程序运行问题

j_cle

如图，在书上有看到 关于perl对象的闭包概念，照着书上的代码敲了下运行，有点问题，自己没有排查出来，请各位指点下，先谢谢了

питон

1. 
   
2.     bless ($ref, $class);
   
3. }

复制代码

==== >>>>

1. 
   
2. };
   
3. bless $ref $class;

复制代码

j_cle

楼上所说的那两种表达方式对程序没有影响，自己今天又梳理了下，发现是$ref引用的问题 ，书中打印错了；
正确的做法应该是 将11行的代码，移到 my $ref 闭包外面来 即，问题已解决

1. sub new{
   
2.     ...   
   
3.     my $ref=sub{
   
4.     ...   
   
5.     };
   
6.     bless($ref, $class);
   
7. }

复制代码