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