用 Perl 複製、重新命名和刪除檔案

以下是 Perl 範例，它會開啟現有的檔案檔案 1.txt，逐行讀取，然後生成另一個副本檔案檔案 2.txt。

#!/usr/bin/perl
# Open file to read
open(DATA1, "<file1.txt");
# Open new file to write
open(DATA2, ">file2.txt");
# Copy data from one file to another.
while(<DATA1>) {
   print DATA2 $_;
}
close( DATA1 );
close( DATA2 );

重新命名檔案

以下是 Perl 範例，它演示如何將檔案 file1.txt 重新命名為 file2.txt。假定檔案位於 /usr/test 目錄中。

#!/usr/bin/perl
rename ("/usr/test/file1.txt", "/usr/test/file2.txt" );

此函式重新命名有兩個引數，它只是重新命名現有檔案。

刪除現有檔案

以下是示例，它演示如何使用 unlink 函式刪除檔案 file1.txt。

#!/usr/bin/perl
unlink ("/usr/test/file1.txt");

更新時間：2019-11-29

1K+ 次檢視

開啟你的 職業生涯

獲得課程認證

開始
廣告