Perl基礎知識大全
本文和大家重點討論一下Perl的概念，Perl是一種文本處理語言，現在Perl提供了大量的模塊集。Perl是：一種核心且及其靈活的語言，一套已安裝的模塊。下面請看本文有關Perl內容詳細介紹。
Perl基礎知識
1，Perl介紹
（1）
剛開始時Perl是一種文本處理語言，是一種理想的編寫商業報告、完成系統管理工作以及處理html表單的語言?，F在Perl提供了大量的模塊集。Perl是：
一種核心且及其靈活的語言
一套已安裝的模塊
CPAN——一個包含上千個有用模塊的庫
在線模塊文檔
（2）在線文檔
》perldocperl
查看函數：perldoc-t-fjoin
打印文檔，Perl以POD的形式保存文檔，可以方便轉成其他多種格式，例如：
perldoc-usubject|pod2html>file.html
（3）安裝模塊
windows下使用ppm：
ppminstalltk #p#
2，Perl基礎知識
（1）helloworld.pl
usestrict;//打開嚴格語法和變量檢查
usewarnings;//打開附加編譯和運行時的警告
print"helloworld\n";//打印信息
運行方式，命令行下：perlhelloworld.pl
（2）變量和簡單表達式
只有一種變量，字符串
定義變量：
my$size=42;#這是注釋
my表示局部變量，42實際上是“42”
如果變量沒有初始化，就被賦予一個特殊值undef，對undef進行比較、打印或算術運算會出錯。
（3）打印變量：
print"size=$size"
會打印出size=42;
如果要打印"$"，需要轉義
perl也有printf，類似c語言，不過只在需要精確控制變量格式的地方才使用，比如：
printf"%3d:%-20s%5.2f\n",$sequence,$description,$amount;
（4）運算符
和c一樣，多的有：
.：字符串連接
**：乘冪
x：重復，比如：my$no="no"x3;
（5）引用規則
如果輸出的字符串后面還有字符，需要用大括號分隔，例如：
my$title="$name\t${size}inches"
如果不希望Perl竄改你的字符串，則要使用單引號。Perl不會解釋單引號內的東西，除非\'和\\
（6）數字常量
與c相同，包括八進制和十六進制，數字中還允許使用下劃線，例如：
my$cost=1_333_832;
（7）讀取輸入
從標準輸入讀取輸入：
$variable=<STDIN>；（stdin也可以全小寫）
將讀取整行，直到新行，包括你的回車。
chomp($name)，可以去掉字符串末尾的新行
（8）if語句和關系運算符
例如：
if($size==1){
}elsif($size==2){//注意不是elseif
}else{
die("錯誤");//打印錯誤消息并退出
}
關系運算符分別有用于數字和字符串的：
數字字符串
==eq
!=ne
<lt
<=le
>gt
>=ge
如果字符串用了數字的關系運算，會將字符串轉換為0，會顯示一個警告
（9）測試變量是否有值
defined($value)
取消定義變量undef($value)
（10）真的定義
false：未定義變量，空字符串，值“0”
true：其他情況
（11）循環語句
while(condition){
last;//退出循環，類似c中的break
}
for($i=0;$i<10;$i++)
{
}
（12）簡單IO
讀取文件：
openIN_FILE"<data.txt"//打開data.txt，“<”是一個特殊字符，表示要讀取
典型使用：openIN_FILE,"<data.txt"ordie("Couldnotopendata.txt");
如果成功就不會執行or后面的語句
讀取文件中的數據：
$line=<IN_FILE>
if(notdefined($line)){//判斷是否EOF
}
close(IN_FILE)//關閉文件
建議對讀出來的東西都進行chomp，去掉"\n"
寫入文件：
openOUT_FILE">data.txt"//打開data.txt，“>”是一個特殊字符，表示要寫入
printOUT_FILE"hello\n" #p#
3，Perl數組
Perl中所有Perl數組變量都以@開頭
（1）基本Perl數組
定義和使用
my@list=("a","b","c");
$list[0],$list[1],$list[2]，下標從0開始
Perl數組中元素個數：$#array_name，返回Perl數組中最后一個變量的索引=Perl數組元素個數-1
空Perl數組$#array_name=-1
Perl數組表達式：
@array=(1,$data,"sam");
@array_dest=@array_source;
@full_message=($prefix1,$prefix2,@message);//在message前面加了兩個元素，賦值full_message
打印Perl數組：
print“@array”，打印結果中間用空格分隔，去掉雙引號，中間沒有分隔
帶有“黑洞”的Perl數組：
如果Perl數組中有沒有賦值的元素，則為undef，例如：
my@array=(1);
$array[5]=4;//中間的幾個下標對應的都是undef
引用詞運算符qw：
my@array=qw(tomdickharry);//中間除了空格沒有其他分隔符
相當于my@array=("tom","dick","harry");
（2）一些Perl數組相關函數：
push(@array,$value)：向結尾添加一個元素
pop(@array)：取走最后的元素并返回
unshift(@array,$value)：在Perl數組起始添加一個元素
shift(@array)或者shift@array：取走第一個元素并返回（函數都可以省略括號）
（3）處理Perl數組的一部分：
可以用一套索引，例如：
my@new_array=@array[1,3,5];
@array[1,0]=@array[0,1];
范圍運算符，例如：
@arry[0..9]=((0)x10);//重復10次0
（4）splice函數
splice可以刪除或者替換Perl數組的一部分，格式為：
splice@array,$offfset//刪除從offset開始到末尾，offset為下標，offset為負數則從結尾算起
例如：
my@array=(0,1,2,3,4,5);
splice(@array,-2);
將得到0123
splice會返回最后刪除的函數。
splice另一種形式：
splice@array,$offset,$length，刪除length個元素
第三種形式：
splice@array$offset,$length,REPLACEMENTS
刪掉后，從offset開始添加REPLACEMENTS里的元素，REPLACEMENTS可以是標量或者Perl數組
（5）split和join函數
@array=splitRegExpr,$string//將$string按照RegExpr指定的分隔符來分解放到@array中
$string=join$union,@array//將@array中元素用$union連接，賦值給@string
（6）Perl數組排序
sort函數，默認按照ASCII順序排序：
my@sorted=sort@array;
按數字順序排序：
@result=sort{$a<=>$b},@unsorted;
（7）@ARGV變量
包含程序的命令行參數，與c中不一樣，第一個參數不是程序的名字
程序的名字在變量$0(數字0)中
【編輯推薦】
