Perl传递结构体指针

#! perl -w

 

use  strict;

 

my  %info_of_students_1  = (name  =>  'LiLei' ,

                           age   => 19,

                           sex   =>  'male' );

 

my  %info_of_students_2  = (name  =>  'HanMeiMei' ,

                           age   => 19,

                           sex   =>  'female' );

 

# 引用student_1和student_2的信息，存在数组中

my  @students  = (\ %info_of_students_1 , \ %info_of_students_2 );

 

sub  get_student_info {

   # 传入的是@students的引用/指针

   my  $ref_students  =  shift ;

 

   foreach  ( 0 .. $ #students ) {

     print  "$ref_students->[$_]->{name}\n" ;

     print  "$ref_students->[$_]->{age}\n" ;

     print  "$ref_students->[$_]->{sex}\n" ;

     print  "\n" ;

   }

}

 

# 参数为@students的引用

get_student_info(\ @students );







传引用进去

\$myvar     传的时候


$$myvar  用的时候


\  类似于 c中的  & 取地址
$  类似于c中的 * 取值





http://bbs.csdn.net/topics/340247299