一 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{}來測試異常，結果在[email protected]中。也可以直接使用die{}來拋出異常。
2）$0表示當前perl文件的name，即perl name調用時的name。
3） @ARGV中存儲傳入perl文件的參數，比如第一個$ARGV[0],且第一個參數不爲文件名是實際傳入的第一個參數。$#ARGV + 1可以得到文件傳入的參數的個數，也可以使用scalar(@ARGV);來獲得參數個數。
4）$#_ 在函數中得到傳入函數的參數的個數。
實例如下：
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 );
}
7) chomp()函數用來去除變量或字符串結尾的換行符
chomp($text);
完！