Perl传递结构体指针

最新推荐文章于 2021-06-05 09:51:02 发布

转载最新推荐文章于 2021-06-05 09:51:02 发布 · 1.3k 阅读

语言基础专栏收录该内容

251 篇文章

订阅专栏

本文通过一个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.youkuaiyun.com/topics/340247299