Perlcheat

  上下文  变量名前缀           数组          哈希表
  void      $scalar    整个:   @array        %hash
  scalar    @array     切片:   @array[0, 2]  @hash{'a', 'b'}
  list      %hash      元素:   $array[0]     $hash{'a'}
            &sub
            *glob    标量值类型
                     数值, 字符串, 引用, glob, undef
  引用
  \     引用            $$foo[1]       等效于 $foo->[1]
  $@%&* 解引用          $$foo{bar}     等效于 $foo->{bar}
  []    匿名数组        ${$$foo[1]}[2] 等效于 $foo->[1]->[2]
  {}    匿名哈希表      ${$$foo[1]}[2] 等效于 $foo->[1][2]
  \()   一列引用
                          数值 VS 字符串      有用的链接
  操作符优先              =          =        perl.plover.com
  ->                      +          .        search.cpan.org
  ++ --                   == !=      eq ne         cpan.org
  **                      < > <= >=  lt gt le ge   pm.org
  ! ~ \ u+ u-             <=>        cmp           tpj.com
  =~ !~                                            perldoc.com
  * / % x                 语法
  + - .                   for    (LIST) { }, for (a;b;c) { }
  << >>                   while  ( ) { }, until ( ) { }
  命名一元操作符          if     ( ) { } elsif ( ) { } else { }
  < > <= >= lt gt le ge   unless ( ) { } elsif ( ) { } else { }
  == != <=> eq ne cmp     foreach 任何时候都可以缩写为 for
  &
  | ^              正则表达式元字符           正则表达式修饰符
  &&               ^     字符串开始           /i 大小写不敏感
  ||               $     字符串结束(\n之前)   /m ^$ 表示行首行末
  .. ...           +     一个或多个           /s . 包括 \n
  ?:               *     零个或多个           /x 忽略所有空白
  = += -= *= 等等  ?     零个或一个           /g 全局（重复）
  , =>             {3,7} 重复 3 到 7 次
  列表操作符       ()    捕获             正则表达式字符类
  not              (?:)  不捕获           .  == [^\n]
  and              []    字符类或集合     \s == [\x20\f\t\r\n]
  or xor           |     二选一           \w == [A-Za-z0-9_]
                   \b    单词边界         \d == [0-9]
                   \z    字符串结尾       \S, \W and \D negate
  一定要这样做！
  use strict;        不要这样做！     有用的链接
  use warnings;      "$foo"           perl.com
  my $var;           $$variable_name  perlmonks.org
  open() or die $!;  `$userinput`     use.perl.org
  use Modules;       /$userinput/     perl.apache.org
                                      parrotcode.org
  函数返回值
  stat      localtime    caller         特殊变量
   0 dev    0 秒(0-59)   0 包名         $_    默认变量
   1 ino    1 分(0-59)   1 文件名       $0    程序名称
   2 mode   2 时(0-23)   2 行号         $/    输入分隔符
   3 nlink  3 日(1-30)   3 调用子程序   $\    输出分隔符
   4 uid    4 月-1(0-11) 4 有没有参数？ $|    句柄不缓冲
   5 gid    5 年-1900    5 想要数组吗？ $!    系统错误信息
   6 rdev   6 星期几     6 eval 文本    $@    eval 错误信息
   7 size   7 当年第几天 7 is_require   $$    当前进程号
   8 atime  8 是否夏令时 8 hints        $.    当前句柄当前行号
   9 mtime               9 bitmask      @ARGV 命令行参数
  10 ctime  just use                    @INC  模块搜索路径
  11 blksz  POSIX::      3..9 只有带参  @_    子程序参数
  12 blcks  strftime!    数调用时有效   %ENV  环境变量

原文