PERL檔案操作

在Perl中可以用open或者sysopen函數來開啟檔案進行操作，這兩個函數都需要通過一個檔案控制代碼（即檔案指標）來對檔案進行讀寫定位等操作。

open函數為例:

一、開啟、關閉檔案

    open的傳回值用來確定開啟檔案的操作是否成功，當其成功時返回非零值，失敗時返回零，因此可以如下判斷：

    if (open(MYFILE, "myfile"))

    {

        # here is what to do if the file opened successfully

    }

    當檔案操作完畢後，用close(MYFILE); 關閉檔案。

    讀：open(檔案控制代碼，"<檔案名稱")  open(檔案控制代碼，"檔案名稱")   前提檔案必須已經存在，否則會返回0，出錯資訊在$!中

    寫：open(檔案控制代碼，">檔案名稱")，檔案如果不存在，那麼建立之，如果存在，內容被清空，長度截為0，$!中有出錯資訊。

    追加：open(檔案控制代碼,">>檔案名稱")，基本同寫，但有一點，檔案中的內容不會被清空，新的內容會追加到原文後面。

    讀寫：open(檔案控制代碼,"+<檔案名稱")，通過“+<”模式，你可以既可以讀檔案，又可以寫檔案。你可以通過tell() 函數在檔案內部移動，通過seek()函數進行定位。如果檔案不存在，就會被建立。如果檔案已經存在，原來的資料不會被清除。

二、讀檔案             

    語句$line = <MYFILE>;從檔案中讀取一行資料存放區到簡單變數$line中並把檔案指標向後移動一行。

    語句@array = <MYFILE>;把檔案的全部內容讀入數組@array，檔案的每一行(含斷行符號符)為@array的一個元素。

三、寫檔案

print MYFILE ("Here is an output line./n");

syswrite(FILE,"This is my write file /n");

註：STDOUT、STDERR為標準輸出和標準錯誤檔案，通常為螢幕，且不需要開啟。

四、判斷檔案狀態

if (-e "/path/file1")               # -e 是否存在

{

    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");

五、命令列參數

  象C一樣，PERL也有儲存命令列參數的數組@ARGV，可以用來分別處理各個命令列參數；與C不同的是，$ARGV[0]是第一個參數，而不是程式名本身。

    $var = $ARGV[0]; # 第一個參數

    $numargs = @ARGV; # 參數的個數

  PERL中，<>操作符實際上是對數組@ARGV的隱含的引用，其工作原理為：

1、當PERL解譯器第一次看到<>時，開啟以$ARGV[0]為檔案名稱的檔案；

2、執行動作shift(@ARGV); 即把數組@ARGV的元素向前移動一個，其元素數量即減少了一個。

3、<>操作符讀取在第一步開啟的檔案中的所有行。

4、讀完後，解譯器回到第一步重複。

  例：

    @ARGV = ("myfile1", "myfile2"); #實際上由命令列參數賦值

    while ($line = <>) {

    print ($line);

    }

  將把檔案myfile1和myfile2的內容列印出來。

六、開啟管道

  用程式的形式也可以象命令列一樣開啟和使用管道(ex:ls > tempfile)。如語句open (MYPIPE, "| cat >hello"); 開啟一個管道，發送到MYPIPE的輸出成為命令"cat >hello"的輸入。由於cat命令將顯示輸入檔案的內容，故該語句等價於open(MYPIPE, ">hello"); 用管道發送郵件如下：

    open (MESSAGE, "| mail dave");

    print MESSAGE ("Hi, Dave! Your Perl program sent this!/n");

    close (MESSAGE);   

原文出處(點擊此處)