pjqblues

公告

<

2025年11月

>

日

一

二

三

四

五

六

26

27

28

29

30

31

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

27

28

29

30

1

2

3

4

5

6

統(tǒng)計(jì)

隨筆 - 9
文章 - 13
評(píng)論 - 3
引用 - 0

常用鏈接

留言簿(1)

隨筆分類

c++(1) (rss)

隨筆檔案

文章分類

c++ (rss)
crack (rss)

文章檔案

搜索

閱讀排行榜

評(píng)論排行榜

Perl===遍歷目錄

看了幾天perl，寫一個(gè)小程序

##############################

#??????Date:?06/09/13

#?????Author:me????

#?????Program:All?over?an?path?you?enter

##############################

#!c:/perl/bin/perl?#-w

print?"enter?the?complete?path:";

$cin_t?=?<STDIN>;

chomp?$cin_t;

our?@stack;???#保存文件夾目錄名。

&EnumDir($cin_t);

#######################################

sub?EnumDir

{

????

????@dir_f?=?@_;

????my?@struct_dirs;

????my?$path?=?join(//,?@dir_f);????#數(shù)組轉(zhuǎn)化為標(biāo)量。

????#print?"$path?\n";

????print?"[Files?in?Directory?$path]?\n";

????$ret_b?=?opendir(HFILE,?$path);

????die?"open?dir?error?$!"?if(!$ret_b);

????@file_s?=?readdir(HFILE);

????

????for($count?=?0;?$count<@file_s;?$count++)

????{

????????#print?"$count?\n";

????????????????

????????if($file_s[$count]?=~?m/\./?)??????????????#打印文件；

????????{

????????????

????????????if($file_s[$count]?=~?m/^\.\.?$/?)??#過濾.?和..;

????????????{

????????????????next;

????????????}

????????????print?"$file_s[$count]?\n";????????????

????????}

????????#///////////////////////////#

????????else

????????{

????????????print?"$file_s[$count]?\n";????????#打印文件夾并壓棧；

????????????$subdir_t?=?$file_s[$count];

????????????$subdir?=?"$path/$subdir_t";

????????????

????????????&PushDirs($subdir);

????????????

????????}

????}

????

????closedir(HFILE);????

????$sub_dir?=?&PopDirs();

????#die?"no?dir?"?if($sub_dir?=0);

????&EnumDir($sub_dir);????

????

}

##############################

sub?PushDirs???????#目錄名壓棧。

{

????my?@dir_fs?=?@_;

????

????my?$path_fs?=?join(//,?@dir_fs);

????push?(@stack,?$path_fs);

}

#-----------------------

sub?PopDirs???????????#取一個(gè)目錄名。

{

????$size?=?@stack;

????if($size?!=?0)

????{

????$buf_pop?=?pop(@stack);

????????return?$buf_pop;????

????}

????die?"nofile?empty";

????????

}

posted on 2006-09-13 14:53 blues 閱讀(941) 評(píng)論(0) 編輯收藏引用

只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。




網(wǎng)站導(dǎo)航: 博客園 IT新聞 BlogJava 博問 Chat2DB 管理

青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品

pjqblues

公告

統(tǒng)計(jì)

常用鏈接

留言簿(1)

隨筆分類

隨筆檔案

文章分類

文章檔案

搜索

最新評(píng)論

閱讀排行榜

評(píng)論排行榜

Perl===遍歷目錄