Perl是一種功能豐富的計(jì)算機(jī)編程語言,這種計(jì)算機(jī)編程語言與C語言一樣強(qiáng)大,在業(yè)內(nèi)它是非常受程序員歡迎的,那么perl環(huán)境配置等基本介紹大家了解嗎?一起跟著武林技術(shù)頻道的步伐來了解吧!
前言:perl是什么,干什么用的?perl原來設(shè)計(jì)者的意圖是用來處理 字符的,80%的強(qiáng)項(xiàng)是處理字符,當(dāng)然其它的很多都可以。現(xiàn)在很多網(wǎng)頁也是用perl的,通常需要CGI環(huán)境,比如 $char =~ /語言/ ,意思是查找含有“語言”這兩個(gè)字的字符串。它還能做unix和linux系統(tǒng)管理,文件內(nèi)容處理(基于awk和sed等工具的功能),其他好多你想做的事。
一、perl環(huán)境配置
1.獲取perl
Perl通常位于/usr/local/bin/perl或/usr/bin/perl中。你可以在Internet用匿名FTP免費(fèi)得到它,如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.運(yùn)行
用文本編輯器編輯好你的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)常使用注釋使你的程序易讀,這是好的編程習(xí)慣。
二、常量、變量等問題
1.單引號與雙引號
雙引號內(nèi)的字符串中支持簡單變量替換? 如:$text = "This text contains the number $number.";
雙引號內(nèi)的字符串中支持轉(zhuǎn)義字符
單引號字符串與雙引號字符串有兩個(gè)區(qū)別,一是沒有變量替換功能,二是反斜線不支持轉(zhuǎn)義字符。
2.重復(fù)和聯(lián)結(jié)
重復(fù):print "t" x 5? (會(huì)輸出5個(gè)t,注意:其中x為英文字母小寫x)
聯(lián)結(jié):$a.="bc"??? (相當(dāng)于連等于)
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";
?? 關(guān)閉文件:當(dāng)文件操作完畢后,用close(MYFILE); 關(guān)閉文件。
2.讀文件
語句$line = <MYFILE>;從文件中讀取一行數(shù)據(jù)存儲(chǔ)到簡單變量$line中并把文件指針向后移動(dòng)一行。<STDIN>為標(biāo)準(zhǔn)輸入文件,通常為鍵盤輸入,不需要打開。
語句@array = <MYFILE>;把文件的全部內(nèi)容讀入數(shù)組@array,文件的每一行(含回車符)為@array的一個(gè)元素。
#!/usr/bin/perlopen(MYFILE,'1.txt');@arr = <MYFILE>;print @arr;
3.寫文件
? 形式為:
???? open(OUTFILE, ">outfile");
???? print OUTFILE ("Here is an output line./n");
? 注:STDOUT、STDERR為標(biāo)準(zhǔn)輸出和標(biāo)準(zhǔn)錯(cuò)誤文件,通常為屏幕,且不需要打開。
4.判斷文件狀態(tài)
1、文件測試操作符
? 語法為:-op expr,如:
??? if (-e "/path/file1") {
??? print STDERR ("File file1 exists./n");
??? }
文件測試操作符
?
操作符 | 描述 |
-b | 是否為塊設(shè)備 |
-c | 是否為字符設(shè)備 |
-d | 是否為目錄 |
-e | 是否存在 |
-f | 是否為普通文件 |
-g | 是否設(shè)置了setgid位 |
-k | 是否設(shè)置了sticky位 |
-l | 是否為符號鏈接 |
-o | 是否擁有該文件 |
-p | 是否為管道 |
-r | 是否可讀 |
-s | 是否非空 |
-t | 是否表示終端 |
-u | 是否設(shè)置了setuid位 |
-w | 是否可寫 |
-x | 是否可執(zhí)行 |
-z | 是否為空文件 |
-A | 距上次訪問多長時(shí)間 |
-B | 是否為二進(jìn)制文件 |
-C | 距上次訪問文件的inode多長時(shí)間 |
-M | 距上次修改多長時(shí)間 |
-O | 是否只為“真正的用戶”所擁有 |
-R | 是否只有“真正的用戶”可讀 |
-S | 是否為socket |
-T | 是否為文本文件 |
-W | 是否只有"真正的用戶"可寫 |
-X | 是否只有"真正的用戶"可執(zhí)行 |
注:“真正的用戶”指登錄時(shí)指定的userid,與當(dāng)前進(jìn)程用戶ID相對,命令suid可以改變有效用戶ID。 |
?例:
??? 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");
??? }
? 等價(jià)于
??? open(INFILE, "infile") && !(-e "outfile") &&
??? open(OUTFILE, ">outfile") || die("Cannot open files/n");
四、模式匹配:
1.概念:模式指在字符串中尋找的特定序列的字符,由反斜線包含:/def/即模式def。其用法如結(jié)合函數(shù)split將字符串用某模式分成多個(gè)單詞:@array = split(/ /, $line);
2.匹配操作符 =~、!~
?? =~檢驗(yàn)匹配是否成功:$result = $var =~ /abc/;若在該字符串中找到了該模式,則返回非零值,即true,不匹配則返回0,即false。!~則相反。
五、控制結(jié)構(gòu)
(1)、條件判斷:if()elseif()else();
(2)、循環(huán):
? 1、while循環(huán)
? 2、until循環(huán)
? 3、for循環(huán)
? 4、針對列表(數(shù)組)每個(gè)元素的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í)行下一個(gè)循環(huán)為next,與C中的continue作用相同;PERL特有的一個(gè)命令是redo,其含義是重復(fù)此次循環(huán),即循環(huán)變量不變,回到循環(huán)起始點(diǎ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í)行一個(gè)特殊任務(wù)的一段分離的代碼,它可以使減少重復(fù)代碼且使程序易讀。PERL中,子程序可以出現(xiàn)在程序的任何地方。定義方法為:
sub subroutine{
statements;
}
(2)、調(diào)用
調(diào)用方法如下:用&調(diào)用
?????? &subname;
?????? ...
?????? sub subname{
????????? ...
?????? }
七、文件系統(tǒng):與unix緊密相關(guān),參考:http://shouce.jb51.net/perl5/perl11.htm
OTHER:
管道:可以將前一執(zhí)行的結(jié)果作為后面的參數(shù),比如
env | grep EDITOR
就可以刪選出環(huán)境變量中EDITOR的值
以上就是關(guān)于perl環(huán)境配置等基本介紹,如果有筒靴們對這方面知識(shí)有興趣的話,可以收藏武林技術(shù)頻道網(wǎng)。
新聞熱點(diǎn)
疑難解答
圖片精選