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中如何使用目录操作函数就分享到这里了，希望以上内容可以对大家有一定的帮助，可以学到更多知识。如果觉得文章不错，可以把它分享出去让更多的人看到。