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

Perl目錄操作函數(shù)：

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

1、Perl目錄操作函數(shù)之mkdir函數(shù)

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

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

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

2、Perl目錄操作函數(shù)之chdir函數(shù)

調用語法：chdir(dirname)

3、Perl目錄操作函數(shù)之opendir函數(shù)

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

4、Perl目錄操作函數(shù)之closedir函數(shù)

調用語法：closedir(mydir)

5、Perl目錄操作函數(shù)之readdir函數(shù)

調用語法：readdir(mydir)

6、Perl目錄操作函數(shù)之telldir函數(shù)

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

7、Perl目錄操作函數(shù)之seekdir函數(shù)

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

8、Perl目錄操作函數(shù)之rewinddir函數(shù)

調用語法：rewinddir(mydir)

9、Perl目錄操作函數(shù)之rmdir函數(shù)

調用語法：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 開發(fā)工具大全
2. Perl文件句柄概念詳解
3. 解析四大Perl操作符用法
4. 實例解析Perl多進程技術的應用
5. Perl學習筆記----Perl格式化輸出詳解