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

RELATEED CONSULTING
相關咨詢
選擇下列產品馬上在線溝通
服務時間:8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯網營銷解決方案
解析九大Perl目錄操作函數用法

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

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

Perl目錄操作函數:

Perl自帶的函數遠不及php多,但功能確實很強大,實現起來也只有幾行代碼。

1、Perl目錄操作函數之mkdir函數

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

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

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

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)

程序代碼:
 

 
 
 
  1. #!/usr/bin/Perl  
  2.  
  3. sublistdir{my@arr,$j=0;  
  4. for($i=0;$i<=$#_;$i++){  
  5. if(-d$_[$i]){  
  6. if(opendir($handle,$_[$i])){  
  7. while($dir=readdir($handle)){  
  8. if(!($dir=~m/^\.$/)and!($dir=~m/^(\.\.)$/)){  
  9. print"$dir";  
  10. if(-d$_[$i]."\\$dir"){  
  11. $arr[$j++]=$_[$i]."\\$dir";  
  12. print"\t[DIR]"  
  13. }  
  14. print"\n";  
  15. }  
  16. }  
  17. closedir($handle);  
  18. }  
  19. }  
  20. }  
  21. if($j>0){  
  22. listdir(@arr);  
  23. }  
  24. }  
  25. listdir"D:\\download";  

本文題目:解析九大Perl目錄操作函數用法
當前地址:http://www.5511xx.com/article/cdcidio.html