對文件和目錄進行操作
opendir 目錄句柄，“目錄”；


for $a(readdir 目錄句柄){
?? ?printer $a
}

@a=readdir HOME;

打印目錄，沒有排序。



查找遞歸目錄用File::Find


刪除文件：（只是刪掉連接，數據應該還沒有刪掉。我是這樣理解）
unlink “文件”，“文件2”；
注：unlink返回的是成功刪除文件的數量。

對應的，創(chuàng)建一個文件的硬鏈接：
link “文件”，“硬鏈接”；


有硬鏈接就有軟連接：
symlink “文件”，“軟連接名”；

unlink glob “*.tmp";
使用glob，這里不是正則。


重命名文件：
rename ”源”，“新名字”；


創(chuàng)建目錄：
mkdir “目錄名”，0755；
第二個參數是初始權限。這里的0是指八進制，不是那個特殊位。注意了，如果第二個參數是字符串，不

管前面是不是0，這個語句都是錯誤的。


oct函數：
強制一個以個字符串作為8進制的數字來解釋。不關前面是不是0.

刪除空目錄：
rmdir “目錄”；
rmdir是File：：Path模塊中的函數。


改變文件的權限：
chmod 0777，“文件1”，“文件2“；
安裝File：：chmod


改變所有者：
chown uid，gid，“文件”；
如果用用戶名，就要用 getpwnam? “用戶名” 轉換成uid使用。
chown返回改變文件個數。


改變文件的時間戳：
utime “atime”，“mtime”，“文件”；
還有一個ctime是不能修改的。所以，這里就不用這個參數了。
atime和mtime的格式，是time函數返回的格式就可以了。如：1247803647
$mtime=$atime-24*60*60,修改時間變成一天前修改的。

轉載于:https://blog.51cto.com/jasonyong/179427

總結

以上是生活随笔為你收集整理的perl对文件和目录进行操作的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。