本文和大家重點討論一下Perl目錄操作函數的概念，這里主要介紹一下九種Perl目錄操作函數的用法，希望通過本文的學習你對Perl目錄操作函數的概念有所了解。

Perl目錄操作函數：

Perl自帶的函數遠不及php多，但功能確實很強大，實現起來也只有幾行代碼。

1、Perl目錄操作函數之mkdir函數

調用語法：mkdir(dirname,permisions)
dirname：將要創建的目錄名，可以為字符串或表達式、
permisions：八進制數，指定目錄的訪問權限、

目錄的訪問權限、其值和意義如下：

權限 值權限
4000運行時設置用戶ID
2000運行時設置組ID
1000粘貼位
0400擁有者讀權限
0200擁有者寫權限
0100擁有者執行權限
0040組讀權限
0020組寫權限
0010組執行權限
0004所有人讀權限
0002所有人寫權限
0001所有人執行權限

2、Perl目錄操作函數之chdir函數

調用語法：chdir(dirname)

3、Perl目錄操作函數之opendir函數

調用語法：opendir(dirvar,dirname)
dirvar：目錄句柄，與文件句柄類似
dirname：目錄名，可為字符串或表達式
調用成功返回真，否則返回假

4、Perl目錄操作函數之closedir函數

調用語法：closedir(mydir)

5、Perl目錄操作函數之readdir函數

調用語法：readdir(mydir)

6、Perl目錄操作函數之telldir函數

調用語法：location=telldir(mydir)
返回當前所在目錄

7、Perl目錄操作函數之seekdir函數

調用語法：seekdir(mydir,location)
location必須為telldir函數返回的值

8、Perl目錄操作函數之rewinddir函數

調用語法：rewinddir(mydir)

9、Perl目錄操作函數之rmdir函數

調用語法：rmdir(dirname)

程序代碼：
 

#!/usr/bin/Perl  
 
sublistdir{my@arr,$j=0;  
for($i=0;$i<=$#_;$i++){  
if(-d$_[$i]){  
if(opendir($handle,$_[$i])){  
while($dir=readdir($handle)){  
if(!($dir=~m/^\.$/)and!($dir=~m/^(\.\.)$/)){  
print"$dir";  
if(-d$_[$i]."\\$dir"){  
$arr[$j++]=$_[$i]."\\$dir";  
print"\t[DIR]"  
}  
print"\n";  
}  
}  
closedir($handle);  
}  
}  
}  
if($j>0){  
listdir(@arr);  
}  
}  
listdir"D:\\download";  

【編輯推薦】

1. Perl 開發工具大全
2. Perl文件句柄概念詳解
3. 解析四大Perl操作符用法
4. 實例解析Perl多進程技術的應用
5. Perl學習筆記----Perl格式化輸出詳解