上下文

      大家都知道在子程序中可以通过my ($a, $b) = @_;来获取参数，

      但是当参数为一个的时候，经常有人会写成 my $a = @_;

      这时候是标量上下文，$a的值始终为@_的个数，因此在你搞错的时候，perl无法提出警告。

      想要获取入参时，要改为my ($a) = @_; 这才是列表上下文， 

      所以记住在获取子程序的参数时，无论有多少个入参，都应该写为my （） = @_。

 

      还要注意的是my()操作符时，请记住，在my不使用括号时，只能声明单个词法变量。

      my $a, $b;  #只声明了$a

      my ($a, $b);  #两个都声明