zoukankan      html  css  js  c++  java
  • perl 面向对象demo

    Vsftp:/root/perl/17# cat Critter.pm 
    package Critter;  
    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;  
    Vsftp:/root/perl/17# cat a1.pl 
    unshift(@INC,"/root/perl/17");   
    use Critter;  
    use Data::Dumper;  
    $ed = Critter->new('name'=>'poddinns'); 
    print $ed->{name};
    print "
    ";
    print $ed->sum(4,5);  
    print "
    "; 
    Vsftp:/root/perl/17# perl a1.pl 
    poddinns
    9

  • 相关阅读:
    三数之和
    167
    二分搜索树
    687
    索引堆
    二分查找 leetcode704
    leetcode 56合并区间 java
    leetcode 1046
    堆的数据结构java
    leetcode 493
  • 原文地址:https://www.cnblogs.com/zhaoyangjian724/p/6198945.html
Copyright © 2011-2022 走看看