日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

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

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),江陽(yáng)企業(yè)網(wǎng)站建設(shè),江陽(yáng)品牌網(wǎng)站建設(shè),網(wǎng)站定制,江陽(yáng)網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,江陽(yáng)網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

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è)置用戶ID
2000運(yùn)行時(shí)設(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)用語(yǔ)法：chdir(dirname)

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

調(diào)用語(yǔ)法：opendir(dirvar,dirname)
dirvar：目錄句柄，與文件句柄類似
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";  
 
 
 

分享名稱：解析九大Perl目錄操作函數(shù)用法
網(wǎng)頁(yè)地址：http://m.5511xx.com/article/cdcidio.html