zoukankan      html  css  js  c++  java
  • perl 创建包

    zjzc01:/root/big2# cat Employee.pm 
    package Employee;
    use Data::Dumper;
    ##创建正式雇员
    
    sub new_regular {
       my ($name,$age,$starting_position,$monthly_salary)=@_;
    
       my $employee = {
       "name" =>$name,
       "age" =>$age,
       "position" =>$starting_position,
      "montly_salary" =>$monthly_salary,
    };
      return $employee;  ## 返回对象引用
    };
    
    
    
    zjzc01:/root/big2# perl a36.pl 
    Employee.pm did not return a true value at a36.pl line 3.
    zjzc01:/root/big2# cat a36.pl 
    
    unshift(@INC,"/root/big2");
    require Employee;
    zjzc01:/root/big2# perl a36.pl 
    Employee.pm did not return a true value at a36.pl line 3.
    
    
    zjzc01:/root/big2# cat a36.pl 
    
    unshift(@INC,"/root/big2");
    require Employee;
    use Data::Dumper;
    $var=Employee::new_regular(a,b,c);
     my $xx= Dumper($var);  
    print $xx;  
    print "
    "; 
    print  $var->{name};
    print "
    ";
    
    
    zjzc01:/root/big2# perl a36.pl 
    $VAR1 = {
              'position' => 'c',
              'name' => 'a',
              'montly_salary' => undef,
              'age' => 'b'
            };
    
    a
    		
    		

  • 相关阅读:
    pair
    非整除集合
    集合 set
    实现字通配符*
    vector
    矩阵及其初等变换
    求数组中连续子数组(最少有一个元素)的最大和。
    最长上升序列(Lis)
    st表求区间最大值
    [Noip2015] 信息传递
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351105.html
Copyright © 2011-2022 走看看