perl 取类里的成员变量

最新推荐文章于 2021-02-27 01:20:10 发布

weixin_30241919

最新推荐文章于 2021-02-27 01:20:10 发布

阅读量155

点赞数

原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6199620.html

版权

[root@wx03 test]# cat x1.pm 
package x1;  
use Data::Dumper;  
sub new {  
my $self ={};
my $invocant = shift;  
my $class = ref($invocant) || $invocant;  
my ($name,$age,$starting_position,$monthly_salary)=@_;  
      my $self = {  
         "name" =>$name,  
         "age" =>$age  
                 }; 






bless($self, $class); # 给予对象性质  

return $self;  
};  

my  $a1='31dadada';
    $a2='afdafsf21414dfsf';


sub sum_var { 
  my ($self,
      $var1,              # Name or IP number of host to ping
      $var2,           # Seconds after which ping times out
      ) = @_;
my $var3= $var1 + $var2;
return $var3;
 } 
1;

[root@wx03 test]# perl a1.pl 

--------------------.
afdafsf21414dfsf[root@wx03 test]#

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