匿名哈希

#!perl
use strict;
use 5.010;
sub disp{
  my $parm=shift;
  say "$$parm{name}'s info are follow:";
  for(keys %$parm) {
    say "$_:$$parm{$_}";
  }
}
my %gilligan_info=(
   name=>'Gilligan',
   hat=>'White',
   shirt=>'Red',
   position=>'First Mate',
   );
my $ref_to_skipper_info={
   name=>'Skipper',
   hat=>'Black',
   shirt=>'Blue',
   position=>'Captain',
   };
&disp($ref_to_skipper_info);
say;
&disp(\%gilligan_info);

程序第11行~16行定义了一个哈希,可以看到,哈希对象是用圆括号()来定义. 

程序第17行~22行定义了一个匿名哈希的引用,可以看到,匿名哈希定义时使用的是花括 号{}. 

括号后面的分号(;)不能少.

代码块和匿名哈希都是用{},Perl必须知道花括号{}到底是用亍那种语法.大多数时候Perl 都能做出正确的决定.但是,当Perl误解了{}的意思的时候,就需要人为的告诉Perl花括号{} 的真是意思.

1. :在花括号前增加加号"+",如+{}
   
2. 指明用于语句块:花括号内的第一条语句使用空语句,如{;}.即在前花括号({)之后紧 跟一个分号(;)