perl 创建包

最新推荐文章于 2024-12-14 14:15:00 发布

scan724

最新推荐文章于 2024-12-14 14:15:00 发布

阅读量513

点赞数

CC 4.0 BY-SA版权

分类专栏： perl 面向对象编程

本文链接：https://blog.youkuaiyun.com/zhaoyangjian724/article/details/50952237

perl 面向对象编程专栏收录该内容

18 篇文章 ¥39.90 ¥99.00

订阅专栏

这篇博客介绍了如何在Perl中创建包，并展示了如何通过`bless`方法创建对象。内容包括`x1.pm`包的定义，包含`new`和`sum_var`两个方法，以及`x1.pl`脚本中如何调用这些方法。在Perl中，对象的方法调用通过箭头操作符实现，例如 `$ed->sum_var`，并解释了这一过程如何映射到实际的函数调用。

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

<pre name="code" class="python"><pre name="code" class="python">uat-app01:/root/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  
                 }; 
print "\$class is $class\n";  
print "--------------------\n";
print $self->{name};
print "\n";
print "--------------------\n";






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


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

了解本专栏