Perl中如何使用目錄操作函數(shù)

這篇文章給大家介紹Perl中如何使用目錄操作函數(shù)，內(nèi)容非常詳細(xì)，感興趣的小伙伴們可以參考借鑒，希望對(duì)大家能有所幫助。

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

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

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

調(diào)用語(yǔ)法：mkdir(dirname,permisions)
dirname：將要?jiǎng)?chuàng)建的目錄名，可以為字符串或表達(dá)式、
permisions：八進(jìn)制數(shù)，指定目錄的訪問(wèn)權(quán)限、

目錄的訪問(wèn)權(quán)限、其值和意義如下：

權(quán)限 值權(quán)限
4000運(yùn)行時(shí)設(shè)置用戶(hù)ID
2000運(yùn)行時(shí)設(shè)置組ID
1000粘貼位
0400擁有者讀權(quán)限
0200擁有者寫(xiě)權(quán)限
0100擁有者執(zhí)行權(quán)限
0040組讀權(quán)限
0020組寫(xiě)權(quán)限
0010組執(zhí)行權(quán)限
0004所有人讀權(quán)限
0002所有人寫(xiě)權(quán)限
0001所有人執(zhí)行權(quán)限

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

調(diào)用語(yǔ)法：chdir(dirname)

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

調(diào)用語(yǔ)法：opendir(dirvar,dirname)
dirvar：目錄句柄，與文件句柄類(lèi)似
dirname：目錄名，可為字符串或表達(dá)式
調(diào)用成功返回真，否則返回假

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

調(diào)用語(yǔ)法：closedir(mydir)

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

調(diào)用語(yǔ)法：readdir(mydir)

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

調(diào)用語(yǔ)法：location=telldir(mydir)
返回當(dāng)前所在目錄

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

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

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

調(diào)用語(yǔ)法：rewinddir(mydir)

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

調(diào)用語(yǔ)法：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";

關(guān)于Perl中如何使用目錄操作函數(shù)就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，可以學(xué)到更多知識(shí)。如果覺(jué)得文章不錯(cuò)，可以把它分享出去讓更多的人看到。