一 perl文件
1）文件第一行#!/usr/bin/perl，用来在类Unix系统上指定perl执行程序；
2）#开始的行表示注释；
3）use strict;对perl进行额外的检查，强迫你使用my定义变量，字符串必须使用单引号或双引号，引用其他的package的变量时变量前加package名字；
4）use warnings;打开warning开关，不忽略warnings，等价于 use warnings 'all';也可以使用use warnings FATAL => 'all'把warning当作error； 可以使用no warnings来取消warning；也可以使用local $^W = 0，来局部关闭warning;
注意：
1）多行注释，heredoc，实例：
$usage = <<EOU;
Usage: getfilesbyname \\
[-f] [-l] [-g]
Where:
-f == XXX
-l == XXX
-g == XXX
EOU
print $usage
二 变量
1）$用来定义Scalar变量：整形，浮点数，字符串；
2）@用来定义Array变量：数组；
3）%用来定义Hash变量：用来存储key/value的map；
4）\用来定义Reference变量：用来存储内存地址的Scalar变量；
5）&用来调用subroutines；但是如果调用subroutines时候有参数，&可以省略；
6）*，typeglob，用来维护symbol table，使用较少，一般用Reference；
注意：
1)字符串使用单双引号都可以。对于双引号的字符串，字符串中支持简单变量替换和支持转义字符，要在字符串中包含双引号或反斜线，则在其前加一个反斜线，反斜线还可以取消变量替换\$result；单引号字符串与双引号字符串有两个区别，一是没有变量替换功能，二是反斜线不支持转义字符，而只在包含单引号和反斜线时起作用，单引号另一个特性是可以跨多行。
2）类型的自动转化，实例：my $num1 = '10';my $num2 = 10 ;my $total = $num1 + $num2;my $total2 = $num1 . $num2;
3）还可以使用上引号``，上引号中的作为系统命令执行，然后返回结果，实例：my $files=`tree`;print $files;
4）True or False，perl没有对应的bool变量的值True和False，在perl中的False为空字符串，字符串或数字0，未定义的变量，或$var=undef（）或undef($var) 。
5)特殊的Scalar：$]表示支持的perl的版本；$0表示当前文件名；$^O表示当前系统版本；$_表示当前项，在for循环中表示当前项。
6）变量运算符，数字使用>,<,>=,<=;字符串使用eq,nq,lt,gt,le,ge;.
三 条件控制
1）if/elsif/else+unless。如下：
2）可以在action后跟test语句，例如： $a = 12 if $b < $c; $a = 12 unless $b >= $c;
3）条件语句$var1 = ($var2 == $var3) ? 17 : 19 ;
4) while/dowhile/until/dountil/for/foreach。如下：
5）我们可以选择性的加入continue block，例如 while($a < 12) {...} continue {...}.
6）last/next/redo,last不执行continue block立即退出；next跳过剩下的语句执行continue block开始下次循环；redo 不执行continue block，重新开始本次循环。
四 其他
1）可以通过eval{}来测试异常，结果在$@中。也可以直接使用die{}来抛出异常。
2）$0表示当前perl文件的name，即perl name调用时的name。
3） @ARGV中存储传入perl文件的参数，比如第一个$ARGV[0],且第一个参数不为文件名是实际传入的第一个参数。$#ARGV + 1可以得到文件传入的参数的个数，也可以使用scalar(@ARGV);来获得参数个数。
实例如下：
5）qw()，因为字符串都需要用引号，但是可以使用qw来自动加引号，例如 my @names = qw(Kernighan Ritchie Pike);等价于my @names = ('Kernighan','Ritchie','Pike');。
6）BEGIN block用来将文件的路径加入@INC， 如下：
# Setup the source directory
$scriptDir = $ 0 ;
$scriptDir =~ s :\\:/: g;
$scriptDir =~ s ,/? [ ^/ ] + $ , ;
$scriptDir = " . " if ( $scriptDir eq "" );
unshift ( @INC , $scriptDir );
}
chomp($text);
====================
循环
输入输出STDIN STDOUT STDERR
默认变量$_
使用结构<STDIN>而没有将它的返回值赋予某个变量，perl自动将返回值赋予特殊的变量$_。很多perl函数使用这个特殊的变量，它称为默认变量，作为默认值，如果没有指明另一个变量，这意味着可以在根本不指定变量的情况下使用print函数将变量$_中的内容打印出来。
事实上可以将STDIN整个省略掉，如果仅单独使用了尖括号<和>，而没有指定任何文件句柄，就默认使用STDIN（perl中充满了类似这样的默认值）
前面这段代码实际上是以下这段代码的简洁版本
============================
1. #! /usr/bin/perl use strict; if ($^O eq 'MSWin32') { my(@dir,$free); @dir=`dir`; $free=$dir[$#dir]; $free =~ s/.*([\d,]+) \w+ free/$1/; $free =~ s/,//g; print "$free\n"; } elsif ($^O eq 'linux') { my(@dir,$free); @dir=`df -k`; $free=(split(/\s+/,$dir[$#dir]))[3]; $free=int($free/1024); print "${free}M\n"; } else { warn "Cannot determine free space on this machine\n"; }