Perl 入门 之 context 上下文

#!/usr/bin/perl #context 上下文 #perl 最独特的特性就在于 它的代码对于上下文是敏感的。 #每个perl的表达式要么在 scalar 上下文中求值，要么在列表上下文求值 my $scalar = "mendeleev";#赋值 #初始化 array 和 hash my @array = ("Alpha", "Beta", "Gamma", "Pie"); my %hash = ("Alpha" => "Beta", "Gamma" => "Pie"); #在scalar上下文中求值的列表表达式会返回 列表 中的最后一个scalar： my $scalar = ("Alpha", "Beta", "Gamma", "Pie");# $scalar的值现在是"Pie" #在scalar上下文中求值的array（还记得array和列表不同吗？）表达式返回该数组的长度： my @array = ("Alpha", "Beta", "Gamma", "Pie"); my $scalar = @array; # $scalar的值现在是4 #print内置函数在列表上下文中求对所有的参数求值。 #事实上，print能够接受无限个参数的列表，并且一个接一个地打印它们，这就意味着我们可以直接用它来打印array： my @array = ("Alpha", "Beta", "Goo"); my $scalar = "-X-"; print @array; # "AlphaBetaGoo"; print $scalar, @array, 98; # "-X-AlphaBetaGoo98"; #引用和嵌套数据结构 #列表无法包含列表作为其元素，array也同样无法包含其他array和hash作为其元素，它们只能包含scalar。 #那么我们就可以用，scalar来 进行引用和赋值 #声明数据结构