php seekdir,Perl - 遍历目录 | Tech && Test

Perl 自带的函数远不及 PHP 多，但功能确实很强大，实现起来也只有几行代码。

Perl 中的目录操作函数有：

1、mkdir 函数

调用语法：mkdir (dirname, permisions)

dirname：将要创建的目录名，可以为字符串或表达式。

permisions：八进制数，指定目录的访问权限。其值和意义如下：

权限值                权限

4000                  运行时设置用户 ID

2000                  运行时设置组 ID

1000                  粘贴位

0400                  拥有者读权限

0200                  拥有者写权限

0100                  拥有者执行权限

0040                  组读权限

0020                  组写权限

0010                  组执行权限

0004                  所有人读权限

0002                  所有人写权限

0001                  所有人执行权限

2、chdir 函数

调用语法：chdir (dirname)

3、opendir 函数

调用语法：opendir (dirvar, dirname)

dirvar：目录句柄，与文件句柄类似

dirname：目录名，可为字符串或表达式

调用成功返回真，否则返回假

4、closedir 函数

调用语法：closedir (mydir)

5、readdir 函数

调用语法：readdir (mydir)

6、telldir 函数

调用语法：location = telldir (mydir)

返回当前所在目录

7、seekdir 函数

调用语法：seekdir (mydir, location)

location必须为telldir 函数返回的值

8、rewinddir 函数

调用语法：rewinddir (mydir)

9、rmdir 函数

调用语法：rmdir (dirname)

程序代码：

#!/usr/bin/perl

sub listdir {

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

#!/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";

分享到：