perl目錄檔案操作 複製,移動,重新命名

2021-07-13 19:25:30 字數 1388 閱讀 9956

perl目錄操作,

建立目錄控制代碼指向要操作的目錄。 開啟目錄控制代碼使用 opendir ;

opendir dirhandle,directory ;

例:取某目錄下檔案的列表:

opendir (e,'e:\娛樂\music\阿杜')|| die"can't open e: $!" ;

@files=readdir e; 

closedir(e) ;

for($index=0;$index<@files ;$index++)

#輸出指定目錄下的所有檔案(該目錄不包含子目錄)。

建立目錄:mkdir

mkdir('d:\test',0755)||die "can't create directory: $!" ;

刪除目錄  rmdir

rmdir('d:\perl\wzj')||die "can't remove diretory: $!";  #刪除之前目錄必須為空。

在某一目錄內找指定檔案:

例:在d盤下找311.txt

use strict ;

use file::find ;

sub wanted

}find \&wanted ,"d:/";

列出指定目錄下所有的檔案,包含子目錄的內容:

use strict ;

use file::find ;

sub wanted

}find \&wanted,'e:\nero\content' ;

查詢指定目錄下某型別檔案:

例:查詢e盤下所有exe檔案

use strict ;

use file::find ;

sub wanted

#  unlink $file::find::name ;}}

find \&wanted,'e://' ;

檔案複製

use file::copy ;

use strict ;

copy("d:/book/三國演義.txt","d:/book/aa")||warn "could not copy files :$!" ;

#將d:/book/三國演義.txt複製到d:/book/aa下

檔案移動

use file::copy ;

use strict ;

move("d:/book/ss.txt","d:/book/aa")||warn "could not copy files :$!" ;

檔案改名

use file::copy ;

use strict ;

rename("d:/perl/tt.txt","d:/perl/tttttt.txt");

#將d:/perl/tt.txt改名為d:/perl/tttttt.txt

Perl複製 移動 重新命名檔案 目錄

file copy模組提供了copy函式和cp函式來複製檔案,它們引數上完全一致,但行為上稍有區別。用法大致如下 use file copy qw copy cp copy sourcefile destinationfile or die copy failed copy copy.pm stdo...

python檔案操作(路徑 移動 複製 見目錄)

這一篇記錄的比較全 常用的有以下幾個 os.path.exists 函式用來檢驗給出的路徑是否真的存在,這裡檢驗的是當前目錄下 os.listdir path 返回指定目錄下的所有檔案和目錄名,若引數預設,則表示當前目錄 os.getcwd 函式得到當前工作目錄,即當前python指令碼工作的目錄路...

Perl檔案及目錄操作

大多數程式都不是孤立的,它們與它們的環境相互作用。很多的程式也需要通過檔案操作實現資料的存貯和交換。檔案控制代碼 file handle 是perl程式中為程式和外部世界提供i o連線的名稱。建議全部使用大寫字母以示與變數等的區別。特別地,也可以將tdin stdout stderr也認為是perl...