精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● CGI>>编程技巧>>Re: 关于PERL面向对象的问题!

主题:Re: 关于PERL面向对象的问题!
发信人: 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]

[关闭][返回]