[root@wx03 test]# cat Horse.pm
package Horse;
use base qw(Critter);
sub new {
my $invocant = shift;
my $class = ref($invocant) || $invocant;
my $self = {
color => "bay",
legs => 4,
owner => undef,
@_, # 覆盖以前的属性
};
return bless $self, $class;
#return $self;
};
sub sum1 {
$self=shift;
my $a=shift;
my $b=shift;
return $a + $b + 7;
};
our @arr=qw/1 2 3 4 5 6 7/;
our %h1=(1,2,3,4,5,6,7,8);
1;
[root@wx03 test]# cat Critter.pm
package Critter;
sub new {
my $self = {};
my $invocant = shift;
my $class = ref($invocant) || $invocant;
my ($name)=@_;
my $self = {
"name" =>$name
};
bless $self, $class; # Use class name to bless() reference
return $self;
};
sub sum2 {
$self=shift;
my $a=shift;
my $b=shift;
return $a + $b;
};
sub fun1 {
$self=shift;
my $a=shift;
my $b=shift;
return $a / $b;
}
1;
[root@wx03 test]# cat t10.pl
unshift(@INC,"/root/test");
use Horse;;
$ua=Horse->new();
print "111111111111\n";
$code=Horse->sum1(4,5);
print "\$str is $code\n";
print "222222222222\n";
$code=Horse->sum2(4,5);
print "\$str is $code\n";
print "33333333333333\n";
print Horse::sum1($ua,1,2);
print "\n";
print "4444444444444444\n";
print Critter::sum2($ua,1,2);
print "\n";
print "55555555555555555\n";
print $ua->sum1(4,5);
print "\n";
print "66666666666666666\n";
print $ua->sum2(4,5);
print "\n";
perl 访问类方法的几种方式
转载本文章为转载内容,我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题,欢迎原作者联系我们进行内容更正或删除文章。
上一篇:perl 调用方法 子例程说明
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章
-
MySQL优化查询的几种方式
MySQL优化查询的几种方式
索引 limit join -
web跨域访问的几种方式
1、修改document.domain:通过修改document.domain来支持同一个主域内跨域;
web 跨域 请求 Access 数据访问 -
perl 类 对象 方法
NAME Net::FTP - FTP Client class SYNOPSIS use Net::FTP; $ftp = Net::F...
perl 创建对象 类名 引用变量 ide