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