发信人: zhcharles@GZ()
整理人: workingnow(2002-09-30 12:02:31), 站内信件
|
标 题: Re: 关于PERL面向对象的问题！
发信站: 网易虚拟社区 (Mon Nov 20 20:43:29 2000), 站内信件
【 在 raoqn (didi) 的大作中提到: 】
: 请问my $a=new('red',1,2) #这句是什么意思呢？
: 还有：
: package clock;
: sub new
: .......
请问my $a=new('red',1,2) #这句是什么意思呢？
还有：
package clock;
sub new
{
my($type)=@_;
my $self={}; <--- 这里指定是一个 hash 引用
$self->{time}=time();
bless $self,$type; <--- bless 是将 $self,$type 捆绑起来
}
sub get
{
my($self)=@_;
return($self->{time});
}
use clock;
my $clock1=new clock(); <--- 生成一个对象
print"$clock1->get(); <--- 调用 clock 的 get() 方法
自己找本书看一下吧！
不用多，看两本就 OK 啦！
至于名字我就不记得了，反正都多于 50 元的。
--
求职：找一份与 linux/FreeBSD、perl、FastCGI、MySQL 等相关职业。最好是
虚拟主机等方面的工作。
独立完成 Qmail + vpopmail + DNS + Apache + PHP4 + MySQL
+ TOMCAT 等安装与设置工作。可对不同的用户,开放或限制 PHP4 JSP
MySQL 等功能。
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.105.178.164]
|
|