Perl 複製/重新命名/刪除檔案

在 Perl Scripts 裡面除了可以用系統指令進行檔案處理外, 也可以用 Perl 直接實現, 做法是這樣:

複製檔案

Perl 沒有內建函式可以複製檔案, 但可以透過載入 File::Copy 實現:

上面的語句會將 $old_file 複製到 $new_file.

重新命名檔案

雖然 Perl 內建有 rename 函式可以用, 但它在某些檔案系統不能運作, 所以用 File::Copy 實現會更好:


move 的用法跟 Unix 的 mv 很相似, 以上語句會將 $old_file 重新命名為 $new_file.

刪除檔案

Perl 有內建刪除檔案的函式 unlink, 它除了可以刪除一個檔案外, 如果將 array 放入 unlink 使用, 會自動讀 array 的內容進行刪除:

如果沒有給予 unlink 參數, 它會自動使用 Perl 預設的 $_ 變數.


Leave a Reply