perl 传递对象到模块

perl 中的对象 就是引用 通过new方法传递数据结构给各个模块

[root@wx03 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); # 给予对象性质

print "\$self is $self\n";

$str=Dumper($self);

print "\$str is $str\n";

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 + $var2;

return $var3;

 }

1;

[root@wx03 test]# cat a2.pl

unshift(@INC,"/root/test");

require x1;

$ed=x1->new('lily','29');

print "\n";

[root@wx03 test]# perl a2.pl

$class is x1

--------------------

lily

--------------------

$self is x1=HASH(0xd49310)  ###perl里对象就是hash

$str is $VAR1 = bless( {

                 'name' => 'lily',

                 'age' => '29'

               }, 'x1' );

-----------------------------------------------------

[root@wx03 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

                 };

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 + $var2;

return $var3;

 }

1;

[root@wx03 test]# cat x2.pm

package x2;

use Data::Dumper;

sub sum_a {

  my ($self,              ##传入对象

      $var1,              # Name or IP number of host to ping

      $var2,           # Seconds after which ping times out

      ) = @_;

print "x2 module\n";

print $self->{name};

print "\n";

my $var3= $var1 + $var2 +99;

return $var3;

 }

1;

[root@wx03 test]# cat a1.pl

unshift(@INC,"/root/test");

require x1;

require x2;

$ed=x1->new('lily','29');

print "----------------------\n";

print x2::sum_a($ed,90,66);  ##传入对象到x2模块

print "\n";

[root@wx03 test]# perl a1.pl

----------------------

x2 module

lily

255