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 "\n";
print $var->{name};
print "\n";
zjzc01:/root/big2# perl a36.pl
$VAR1 = {
'position' => 'c',
'name' => 'a',
'montly_salary' => undef,
'age' => 'b'
};
a
perl 创建包
最新推荐文章于 2017-09-26 11:11:54 发布
![](https://img-home.csdnimg.cn/images/20240711042549.png)