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

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

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

程序代码:
 

  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";  

【编辑推荐】

 

  1. Perl 开发工具大全
  2. Perl文件句柄概念详解
  3. 解析四大Perl操作符用法
  4. 实例解析Perl多进程技术的应用
  5. Perl学习笔记----Perl格式化输出详解


 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-19 14:13:41

Perl函数

2010-07-16 16:56:01

Perl构造函数

2010-07-14 14:46:57

Perl操作符

2010-07-19 14:20:57

Perl函数

2010-07-19 14:37:01

Perl进程启动函数

2010-07-15 14:01:10

Perl目录句柄

2010-07-13 09:23:00

Perl变量

2010-07-16 17:04:38

Perl方法

2010-07-20 15:54:40

Perl简单变量

2010-07-19 10:01:57

Perl函数

2010-07-13 13:49:43

Perl foreac

2010-07-19 11:12:43

Perl 不等于

2010-06-29 18:33:31

UML建模图形

2010-07-23 15:59:33

Perl encode

2010-07-15 14:25:06

Perl时间函数

2010-07-15 10:22:23

Perl控制结构

2010-07-20 09:45:04

Perl继承

2010-07-16 08:47:53

Perl if语句

2010-07-20 15:02:20

Perl数组

2010-07-23 13:53:33

Perl grep函数
点赞
收藏

51CTO技术栈公众号