參考：http://shouce.jb51.net/perl5/
網(wǎng)站環(huán)境配置：https://www.jb51.net/article/74005.htm

Perl的基本語法 https://www.jb51.net/shouce/Perl.htm

：perl是什么，干什么用的？perl原來設計者的意圖是用來處理 字符的，80%的強項是處理字符，當然其它的很多都可以?，F(xiàn)在很多網(wǎng)頁也是用perl的，通常需要CGI環(huán)境，比如 $char =~ /語言/ ，意思是查找含有“語言”這兩個字的字符串。它還能做unix和linux系統(tǒng)管理，文件內(nèi)容處理（基于awk和sed等工具的功能），其他好多你想做的事。

一、perl環(huán)境配置

1.獲取perl
　　Perl通常位于/usr/local/bin/perl或/usr/bin/perl中。你可以在Internet用匿名FTP免費得到它，如ftp://prep.ai.mit.edu/pub/gnu/perl-5.004.tar.gz

2.安裝過程為：
(1)解壓：
$gunzip perl-5.004.tar.gz
$tar xvf - <perl-5.004.tar.gz
(2)編譯：
$make makefile
(3)放置：
將編譯生成的可執(zhí)行文件拷貝到可執(zhí)行文件通常所在目錄，如：
$copy <compiled excutable file> /usr/local/bin/perl

3.運行
　　用文本編輯器編輯好你的Perl程序，加上可執(zhí)行屬性：$chmod +x <program>就可以執(zhí)行了：$./<program>。如果系統(tǒng)提示："/usr/local/bin/perl not found"，則說明你沒有安裝成功，請重新安裝。
注：你的程序的第一行必須為#!/usr/local/bin/perl（perl所在位置）。

4注釋：
注釋的方法為在語句的開頭用字符#，如：
# this line is a comment
注：建議經(jīng)常使用注釋使你的程序易讀，這是好的編程習慣。

二、常量、變量等問題

1.單引號與雙引號
　　雙引號內(nèi)的字符串中支持簡單變量替換 如：$text = "This text contains the number $number.";
　　雙引號內(nèi)的字符串中支持轉義字符
　　單引號字符串與雙引號字符串有兩個區(qū)別，一是沒有變量替換功能，二是反斜線不支持轉義字符。
2.重復和聯(lián)結
重復：print "t" x 5 (會輸出5個t，注意：其中x為英文字母小寫x)
聯(lián)結：$a.="bc" (相當于連等于)
3.簡單變量、數(shù)組、列表
簡單變量：用$聲明，如：$a="hello";
數(shù)組：用@聲明，如：@arr=('a','b','c');
列表：列表是包含在括號里的一序列的值，可以為任何數(shù)值，也可為空，如：(1, 5.3 , "hello" , 2)，空列表：()

三、文件操作

1.打開文件：如open (MYFILE, "file1") || die ("Could not open file");MYFILE為聲明的文件句柄，file1為文件名/文件路徑，整行代碼意為：如果打開失敗，則輸出"Could not open file"；
關閉文件：當文件操作完畢后，用close(MYFILE); 關閉文件。
2.讀文件
　　語句$line = <MYFILE>;從文件中讀取一行數(shù)據(jù)存儲到簡單變量$line中并把文件指針向后移動一行。<STDIN>為標準輸入文件，通常為鍵盤輸入，不需要打開。
　　語句@array = <MYFILE>;把文件的全部內(nèi)容讀入數(shù)組@array，文件的每一行(含回車符)為@array的一個元素。

#!/usr/bin/perl
open(MYFILE,'1.txt');
@arr = <MYFILE>;
print @arr;

3.寫文件
形式為：
open(OUTFILE, ">outfile");
print OUTFILE ("Here is an output line.\n");
注：STDOUT、STDERR為標準輸出和標準錯誤文件，通常為屏幕，且不需要打開。
4.判斷文件狀態(tài)

1、文件測試操作符
語法為：-op expr，如：
if (-e "/path/file1") {
print STDERR ("File file1 exists.\n");
}

文件測試操作符

例：
unless (open(INFILE, "infile")) {
die ("Input file infile cannot be opened.\n");
}
if (-e "outfile") {
die ("Output file outfile already exists.\n");
}
unless (open(OUTFILE, ">outfile")) {
die ("Output file outfile cannot be opened.\n");
}
等價于
open(INFILE, "infile") && !(-e "outfile") &&
open(OUTFILE, ">outfile") || die("Cannot open files\n");

四、模式匹配：

1.概念：模式指在字符串中尋找的特定序列的字符，由反斜線包含：/def/即模式def。其用法如結合函數(shù)split將字符串用某模式分成多個單詞：@array = split(/ /, $line);
2.匹配操作符 =~、!~
=~檢驗匹配是否成功：$result = $var =~ /abc/;若在該字符串中找到了該模式，則返回非零值，即true，不匹配則返回0，即false。!~則相反。

五、控制結構
(1)、條件判斷：if()elseif()else();
(2)、循環(huán)：
1、while循環(huán)
2、until循環(huán)
3、for循環(huán)
4、針對列表(數(shù)組)每個元素的foreach循環(huán)

open(MYFILE,'1.txt');
@arr = <MYFILE>;
foreach $str (@arr){
 print $str;
}

5、do循環(huán)
6、循環(huán)控制:退出循環(huán)為last，與C中的break作用相同；執(zhí)行下一個循環(huán)為next，與C中的continue作用相同；PERL特有的一個命令是redo，其含義是重復此次循環(huán)，即循環(huán)變量不變，回到循環(huán)起始點，但要注意，redo命令在do循環(huán)中不起作用。
7、傳統(tǒng)的goto語句:goto label;
(3)、單行條件
　　語法為statement keyword condexpr。其中keyword可為if、unless、while或until，如：
print ("This is zero.\n") if ($var == 0);
print ("This is zero.\n") unless ($var != 0);
print ("Not zero yet.\n") while ($var-- > 0);
print ("Not zero yet.\n") until ($var-- == 0);
雖然條件判斷寫在后面，但卻是先執(zhí)行的。

六、子程序
(1)、定義
　　子程序即執(zhí)行一個特殊任務的一段分離的代碼，它可以使減少重復代碼且使程序易讀。PERL中，子程序可以出現(xiàn)在程序的任何地方。定義方法為：
　　sub subroutine{
　　　　statements;
　　}
(2)、調(diào)用
　　調(diào)用方法如下：用&調(diào)用
&subname;
...
sub subname{
...
}
七、文件系統(tǒng)：與unix緊密相關，參考：http://shouce.jb51.net/perl5/perl11.htm

OTHER：
管道：可以將前一執(zhí)行的結果作為后面的參數(shù)，比如
env | grep EDITOR
就可以刪選出環(huán)境變量中EDITOR的值

版權聲明：本站文章來源標注為YINGSOO的內(nèi)容版權均為本站所有，歡迎引用、轉載，請保持原文完整并注明來源及原文鏈接。禁止復制或仿造本網(wǎng)站，禁止在非www.sddonglingsh.com所屬的服務器上建立鏡像，否則將依法追究法律責任。本站部分內(nèi)容來源于網(wǎng)友推薦、互聯(lián)網(wǎng)收集整理而來，僅供學習參考，不代表本站立場，如有內(nèi)容涉嫌侵權，請聯(lián)系alex-e#qq.com處理。