perl use base 继承-优快云博客

本文通过具体的Perl脚本示例，展示了如何在一个Perl模块中使用另一个模块，并实现类的继承和方法的重写。示例代码包括两个Perl模块文件及一个主脚本，用于演示不同方法的调用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

centos6.5:/root/podinns/lib#cat First.pm 
package First;
use base qw(Second);
sub new {  
    my $self = {};  
    my $invocant = shift;      
my $class = ref($invocant) || $invocant;  
    my ($name)=@_;      
      my $self = {      
         "name" =>"luotuo",
         @_ # 覆盖以前的属性      
                 };    
    bless $self, $class; # Use class name to bless() reference  
    return $self;  
  
};  
  
sub sum {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a + $b;  
};  
1;
centos6.5:/root/podinns/lib#cat Second.pm 
package Second;
sub sum_all {  
       $self=shift;  
       my $a=shift;  
       my $b=shift;  
       return $a * $b;  
};  


sub sum_x {


       my $a=shift;

       my $b=shift;

       return $a * $b;

};
1; 
centos6.5:/root/podinns/lib#cat a2.pl 
unshift(@INC,"/root/podinns/lib");  
use First;
$ed=First->new('name'=>'poddinns'); 
print "111111111111111\n";
print $ed->sum(12,34);
print "\n";
print "2222222222222222\n";
print $ed->sum_all(12,34);
print "\n";
print "333333333333333333\n";
print Second::sum_x(12,21);
print "\n";
centos6.5:/root/podinns/lib#perl a2.pl 
111111111111111
46
2222222222222222
408
333333333333333333
252

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6198943.html