Perl引用简单使用

最新推荐文章于 2025-11-25 09:41:17 发布

原创最新推荐文章于 2025-11-25 09:41:17 发布 · 739 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#perl #list

Perl 专栏收录该内容

5 篇文章

订阅专栏

本文通过一个Perl脚本示例展示了如何在子程序中初始化并返回数据，通过对不同角色携带物品的列表进行组织，说明了如何利用Perl语言特性管理内存中的数据结构。

#!/usr/bin/perl
my @all_with_name;

sub initialize_provisions_list{
    my @skipper = qw(bule_shirt hat jacket preserver sunscreen);
    my @skipper_with_name = ('The Skipper', /@skipper);

    my @professor = qw(sunscreen water_bottle slide_rule batteries);
    my @professor_with_name =('The professor',/@professor);

    my @gilligan = qw(red_shirt hat lucky_socks water_bottle);
    my @gilligan_with_name = ('The gilligan',/@gilligan);

    @all_with_name =(
        /@skipper_with_name,
        /@professor_with_name,
        /@gilligan_with_name,
    );
}

initialize_provisions_list();

print "${$all_with_name[0]->[1]}[0]/n";