perl 簡(jiǎn)明教程 perl教程集合

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

Perl的基本語(yǔ)法 https://www.jb51.net/shouce/Perl.htm

前言：perl是什么，干什么用的？perl原來(lái)設(shè)計(jì)者的意圖是用來(lái)處理 字符的，80%的強(qiáng)項(xiàng)是處理字符，當(dāng)然其它的很多都可以?，F(xiàn)在很多網(wǎng)頁(yè)也是用perl的，通常需要CGI環(huán)境，比如 $char =~ /語(yǔ)言/ ，意思是查找含有“語(yǔ)言”這兩個(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.安裝過(guò)程為：
      (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"，則說(shuō)明你沒(méi)有安裝成功，請(qǐng)重新安裝。
注：你的程序的第一行必須為#!/usr/local/bin/perl（perl所在位置）。

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

二、常量、變量等問(wèn)題

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

三、文件操作

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

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

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

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

文件測(cè)試操作符