发信人: 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]
|
|