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
    		
    		

  • 相关阅读:
    转:【实用教程】阿里云服务器的配置和使用
    C# 定制错误页面
    C# Session进程外存储
    NOIP200101数的计算
    周末舞会
    queue 队列
    信息学作文
    求三个数的平均数
    Hello world
    Django-Form组件-forms.Form
  • 原文地址:https://www.cnblogs.com/hzcya1995/p/13351105.html
Copyright © 2011-2022 走看看