解析九大Perl目录操作函数用法

本文和大家重点讨论一下Perl目录操作函数的概念，这里主要介绍一下九种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目录操作函数用法
网站URL：http://www.mswzjz.cn/qtweb/news15/301665.html

攀枝花网站建设、攀枝花网站运维推广公司-贝锐智能，是专注品牌与效果的网络营销公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 贝锐智能