Perl进阶笔记

adv.pl

#在package中定义私有函数
#方法一
sub p_func
{
    caller eq __PACKAGE__ or die;
    print "test\n";
}
#方法二
my $p_func = sub {
    print "test\n";
};



#=========================
my @book = (
    "Seek Away",
    "For True"
);
my %info = (
    "name" => "jason",
    "age" => 22
);
my %guy = (
    "book" => \@book,
    "info" => \%info
);

#更简洁的写法
my %guy = (
    "book" => [
       "Seek Away",
        "For True" 
    ],
    "info" => {
        "name" => "jason",
        "age" => 22
    }
);