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";

關于Perl中如何使用目錄操作函數就分享到這里了，希望以上內容可以對大家有一定的幫助，可以學到更多知識。如果覺得文章不錯，可以把它分享出去讓更多的人看到。