建站
咨詢
售后
建站咨詢
新聞中心
本文和大家重點討論一下Perl目錄操作函數(shù)的概念，這里主要介紹一下九種Perl目錄操作函數(shù)的用法，希望通過本文的學(xué)習(xí)你對Perl目錄操作函數(shù)的概念有所了解。
創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),江陽企業(yè)網(wǎng)站建設(shè),江陽品牌網(wǎng)站建設(shè),網(wǎng)站定制,江陽網(wǎng)站建設(shè)報價,網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,江陽網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿，時刻以成就客戶成長自我，堅持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
Perl目錄操作函數(shù)：
Perl自帶的函數(shù)遠不及php多，但功能確實很強大，實現(xiàn)起來也只有幾行代碼。
1、Perl目錄操作函數(shù)之mkdir函數(shù)
調(diào)用語法：mkdir(dirname,permisions)
dirname：將要創(chuàng)建的目錄名，可以為字符串或表達式、
permisions：八進制數(shù)，指定目錄的訪問權(quán)限、
目錄的訪問權(quán)限、其值和意義如下：
權(quán)限 值權(quán)限
4000運行時設(shè)置用戶ID
2000運行時設(shè)置組ID
1000粘貼位
0400擁有者讀權(quán)限
0200擁有者寫權(quán)限
0100擁有者執(zhí)行權(quán)限
0040組讀權(quán)限
0020組寫權(quán)限
0010組執(zhí)行權(quán)限
0004所有人讀權(quán)限
0002所有人寫權(quán)限
0001所有人執(zhí)行權(quán)限
2、Perl目錄操作函數(shù)之chdir函數(shù)
調(diào)用語法：chdir(dirname)
3、Perl目錄操作函數(shù)之opendir函數(shù)
調(diào)用語法：opendir(dirvar,dirname)
dirvar：目錄句柄，與文件句柄類似
dirname：目錄名，可為字符串或表達式
調(diào)用成功返回真，否則返回假
4、Perl目錄操作函數(shù)之closedir函數(shù)
調(diào)用語法：closedir(mydir)
5、Perl目錄操作函數(shù)之readdir函數(shù)
調(diào)用語法：readdir(mydir)
6、Perl目錄操作函數(shù)之telldir函數(shù)
調(diào)用語法：location=telldir(mydir)
返回當(dāng)前所在目錄
7、Perl目錄操作函數(shù)之seekdir函數(shù)
調(diào)用語法：seekdir(mydir,location)
location必須為telldir函數(shù)返回的值
8、Perl目錄操作函數(shù)之rewinddir函數(shù)
調(diào)用語法：rewinddir(mydir)
9、Perl目錄操作函數(shù)之rmdir函數(shù)
調(diào)用語法：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目錄操作函數(shù)用法
標題路徑：http://m.fisionsoft.com.cn/article/cdcidio.html
