詳見html
http://www.cnblogs.com/itech/archive/2010/03/23/1691842.html
數組
一 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);來得到參數個數。 4）$#_ 在函數中獲得傳入函數的參數的個數。 實例以下： 5）qw()，由於字符串都須要用引號，可是可使用qw來自動加引號，例如 my @names = qw(Kernighan Ritchie Pike);等價於my @names = ('Kernighan', 'Ritchie', 'Pike');。 6）BEGIN block用來將文件的路徑加入@INC， 以下： BEGIN { # Setup the source directory $scriptDir = $0; $scriptDir =~ s:\\:/:g; $scriptDir =~ s,/?[^/]+$,,; $scriptDir = "." if ($scriptDir eq ""); unshift(@INC, $scriptDir); } 7) chomp()函數用來去除變量或字符串結尾的換行符 $text="alineoftext\n"; #也能夠由<STDIN>輸入 chomp($text); #去掉換行符(\n)。 更簡單地能夠寫爲chomp($text=<STDIN>); 等價於 $text=<STDIN>; chomp($text); 完！