perl学习-标量，列表，数组

scalar   $a
数组     $a[0],$a[1],....$a[$#a];
list     @a = ("aa","bb","cc"); @a = qw{aa bb cc};
        qw 表示 “ quoted words” 或者 “ quoted by whitespace,” 这依赖于你问的是谁。无论那种解释，Perl将它们当作单引号字符串处理，你不能像双引号那样在 qw 中使用\n 和$fred。whitespace（空格，像spaces,tabs,newlines 等字符串）将被忽略，剩下的组成了列表的元素。


list操作  pop,push,shift,unshift;

一个用于计算累加的程序

  1 use strict;
  2 sub total{
  3     my($sum) = 0;#my用于定义临时变量
  4     foreach(@_){ #内置变量，用于表示传入的参数列表；
  5         $sum += $_; #内置变量，等价于foreach $i ()中的$i,即每次取出的值变量;
  6     }


       return $sum;
  7 }
  8 my $sum = &total(1..5);  #&表示引用的函数为自己定义的函数。
  9 print $sum."\n";
 10
 11
~

print ...

perl -e '@array = qw(asdsa sss 11 33);print @array,"\n";'
asdsasss1133


打印出@array列表内容。

perl -e '@array = qw(asdsa sss 11 33);print "@array\n";'
asdsa sss 11 33


@array被插入到字符串中，自动添加空格

perl -e '@array = qw(asdsa sss 11 33);print @array."\n";'
4


上下文"\n"为标量，所以@array返回标量4。