请教一个问题，关于perl对象创建的？

vooz

我在网上下载了某在线商店的源码，但是一开始就看不太明白，我太菜了！

--------------------------------------------------------------------------------------------
use FindBin qw($Bin);
use lib "$Bin/library";
use iLcatlib;
use strict;
use vars qw(%FORM %CON %COOKIE $LIB $sth $row @userdata);

#获得系统参数
tie %CON, 'IniFiles', ( -file => "$Bin/nkshop.ini" );

#构造新对象
$LIB=iLcatlib->new(ttmlpath=>"$CON{path}{ttmlpath}");
---------------------------------------------------------------------------------------------------
中的"use vars qw(%FORM %CON %COOKIE $LIB $sth $row @userdata);"

和“
#获得系统参数
tie %CON, 'IniFiles', ( -file => "$Bin/nkshop.ini" );

#构造新对象
$LIB=iLcatlib->new(ttmlpath=>"$CON{path}{ttmlpath}");
”
构造新对象是怎么样构造的，有没有哪位朋友给一下这方面的详细解释。

兰花仙子

这个讲起来话题很长，不是3言2语讲的清的。你看下置顶资源里别人翻译的“perl编程”吧。

莫愁

原帖由 vooz 于 2006-6-20 09:01 发表
我在网上下载了某在线商店的源码，但是一开始就看不太明白，我太菜了！

--------------------------------------------------------------------------------------------
use FindBin qw($Bin);
use lib &q ...

看看这个：
http://bbs.chinaunix.net/viewthr ... &extra=page%3D2