perl 簡明教程 perl教程集合_perl

參考：http://shouce.jb51.net/perl5/
網站環境配置：http://www.jb51.net/article/74005.htm

Perl的基本文法 http://www.jb51.net/shouce/Perl.htm

前言：perl是什麼，幹什麼用的？perl原來設計者的意圖是用來處理 字元的，80%的強項是處理字元，當然其它的很多都可以。現在很多網頁也是用perl的，通常需要CGI環境，比如 $char =~ /語言/ ，意思是尋找含有“語言”這兩個字的字串。它還能做unix和linux系統管理，檔案內容處理（基於awk和sed等工具的功能），其他好多你想做的事。

一、perl環境配置

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)放置：
      將編譯產生的可執行檔拷貝到可執行檔通常所在目錄，如：
      $copy <compiled excutable file> /usr/local/bin/perl

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

4注釋：
      注釋的方法為在語句的開頭用字元#，如：
      # this line is a comment
      註：建議經常使用注釋使你的程式易讀，這是好的編程習慣。

二、常量、變數等問題

1.單引號與雙引號
　　雙引號內的字串中支援簡單變數替換  如：$text = "This text contains the number $number.";
　　雙引號內的字串中支援逸出字元
　　單引號字串與雙引號字串有兩個區別，一是沒有變數替換功能，二是反斜線不支援逸出字元。
2.重複和連接
重複：print "t" x 5  (會輸出5個t，注意：其中x為英文字母小寫x)
連接：$a.="bc"    (相當於連等於)
3.簡單變數、數組、列表
簡單變數：用$聲明，如：$a="hello";
數組：用@聲明，如：@arr=('a','b','c');
列表：列表是包含在括弧裡的一序列的值，可以為任何數值，也可為空白，如：(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>;從檔案中讀取一行資料存放區到簡單變數$line中並把檔案指標向後移動一行。<STDIN>為標準輸入檔案，通常為鍵盤輸入，不需要開啟。
　　語句@array = <MYFILE>;把檔案的全部內容讀入數組@array，檔案的每一行(含斷行符號符)為@array的一個元素。

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

3.寫檔案
  形式為：
     open(OUTFILE, ">outfile");
     print OUTFILE ("Here is an output line.\n");
  註：STDOUT、STDERR為標準輸出和標準錯誤檔案，通常為螢幕，且不需要開啟。
4.判斷檔案狀態

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

檔案測試操作符

操作符	描述
-b	是否為塊裝置
-c	是否為字元裝置
-d	是否為目錄
-e	是否存在
-f	是否為普通檔案
-g	是否設定了setgid位
-k	是否設定了sticky位
-l	是否為符號連結
-o	是否擁有該檔案
-p	是否為管道
-r	是否可讀
-s	是否非空
-t	是否表示終端
-u	是否設定了setuid位
-w	是否可寫
-x	是否可執行
-z	是否為空白檔案
-A	距上次訪問多長時間
-B	是否為二進位檔案
-C	距上次訪問檔案的inode多長時間
-M	距上次修改多長時間
-O	是否只為“真正的使用者”所擁有
-R	是否只有“真正的使用者”可讀
-S	是否為socket
-T	是否為文字檔
-W	是否只有"真正的使用者"可寫
-X	是否只有"真正的使用者"可執行
註：“真正的使用者”指登入時指定的userid，與當前進程使用者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");
    }
  等價於
    open(INFILE, "infile") && !(-e "outfile") &&
    open(OUTFILE, ">outfile") || die("Cannot open files\n");

四、模式比對：

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

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

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

  5、do迴圈
  6、迴圈控制:退出迴圈為last，與C中的break作用相同；執行下一個迴圈為next，與C中的continue作用相同；PERL特有的一個命令是redo，其含義是重複此次迴圈，即迴圈變數不變，回到迴圈起始點，但要注意，redo命令在do迴圈中不起作用。
  7、傳統的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);
    雖然條件判斷寫在後面，但卻是先執行的。

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

OTHER：
管道：可以將前一執行的結果作為後面的參數，比如
env | grep EDITOR
就可以刪選出環境變數中EDITOR的值