包内变量引用

lewphee

1. 
   
2. #load data.
   
3. my $dl = new Core::DataLoader;
   
4. $dl->load('./data/20090107.dat');
   
5. $dl->process();
   

复制代码

DataLoader有个变量
my $old_data;

为什么$dl->{old_data}没有数据？

flw

没数据就对了。

my 是块作用域的。最大的块也超不过文件。

lewphee

原帖由 flw 于 2009-3-30 16:50 发表
没数据就对了。

my 是块作用域的。最大的块也超不过文件。

我看了一下，our也是不行的，它也是当前编译单元内的。关于“全局”(即在caller那也可用)该怎么个弄法？就只有通过$dl->getdata()这样的办法？

MMMIX

原帖由 lewphee 于 2009-3-30 17:06 发表

我看了一下，our也是不行的，

our 肯定是行的。

就只有通过$dl->getdata()这样的办法？

这个方法不好么？

redicaps

为什么要直接访问?
package本来就用来封装的
如果一定要用,使用Exporter模块导出变量

lewphee

嗯，谢谢各位~！
不过our和Exporter之类的现在倒是模模糊糊的，得去翻资料复习一下，几个月不写PERL，基本就忘记光了....郁闷

flw

忘光了好啊。
就怕没忘光，还说自己“会 Perl”，然后写出一堆垃圾程序，那就糟了。

lewphee

原帖由 flw 于 2009-3-30 17:54 发表
忘光了好啊。
就怕没忘光，还说自己“会 Perl”，然后写出一堆垃圾程序，那就糟了。

呵呵~！可能是PERL比较灵活，不容易记，但更多的原因是，工作中用PERL的时间太少，写得少就容易模糊这些。
多谢指教

flw

原帖由 lewphee 于 2009-3-30 18:11 发表

呵呵~！可能是PERL比较灵活，不容易记，但更多的原因是，工作中用PERL的时间太少，写得少就容易模糊这些。
多谢指教

对呀！所以你干脆忘光就对了！
没要求你记住啊。