Chinaunix

标题: 求解一个perl程序运行问题 [打印本页]

---

作者: j_cle    时间: 2015-11-19 00:07
标题: 求解一个perl程序运行问题
如图，在书上有看到 关于perl对象的闭包概念，照着书上的代码敲了下运行，有点问题，自己没有排查出来，请各位指点下，先谢谢了

---

作者: питон    时间: 2015-11-19 15:11

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

复制代码

==== >>>>

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

复制代码

---

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

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

复制代码

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2