请问my $a=new('red',1,2)#这句是什么意思呢？
还有：
clock.pm
package clock;
sub new{my($type)=@_;
my $self={};
为什么要定义个这个而且是空的呢？
$self->{time}=time();
bless $self,$type;
#请问bless是什么意思呢？
}
sub get{my($self)=@_;
return($self->{time});
}
clock.pl
use clock;
my $clock1=new clock();这句是什么意思呢？
print"$clock1->get();这句呢？
_________________________________________________________
Do You Yahoo!? 登录免费雅虎电邮! http://mail.yahoo.com.cn
创建雅虎俱乐部，真我个性尽施展！http://cn.clubs.yahoo.com