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

你对Perl目录操作函数的概念是否熟悉，这里向大家简单介绍一下，Perl自带的函数远不及php多，但功能确实很强大，实现起来也只有几行代码。

AD：WOT2014课程推荐：实战MSA：用开源软件搭建微服务系统

本文和大家重点讨论一下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";