語法為open (filevar, filename)，其中filevar為文件句柄，或者說是程序中用來代表某文件的代號，filename為文件名，其路徑可為相對路徑，亦可為絕對路徑。

    open(FILE1,"file1");

    open(FILE1, "/u/jqpublic/file1");

  打開文件時必須決定訪問模式，在PERL中有三種訪問模式：讀、寫和添加。后兩種模式的區別在于寫模式將原文件覆蓋，原有內容丟失，形式為：open(outfile,">outfile");而添加模式則在原文件的末尾處繼續添加內容，形式為：open(appendfile, ">>appendfile")。要注意的是，不能對文件同時進行讀和寫/添加操作。

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

    if (open(MYFILE, "myfile")) {

    # here's what to do if the file opened successfully

    }

  當文件打開失敗時結束程序：

    unless (open (MYFILE, "file1")) {

    die ("cannot open input file file1/n");

    }

  亦可用邏輯或操作符表示如下：

    open (MYFILE, "file1") || die ("Could not open file");

  當文件操作完畢后，用close(MYFILE); 關閉文件。

二、讀文件

  語句$line = <MYFILE>;從文件中讀取一行數據存儲到簡單變量$line中并把文件指針向后移動一行。<STDIN>為標準輸入文件，通常為鍵盤輸入，不需要打開。

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

三、寫文件

  形式為：

    open(OUTFILE, ">outfile");

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

  注：STDOUT、STDERR為標準輸出和標準錯誤文件，通常為屏幕，且不需要打開。

四、判斷文件狀態

1、文件測試操作符

  語法為：-op expr，如：

    if (-e "/path/file1") {

    print STDERR ("File file1 exists./n");

    }

文件測試操作符