| « | October 2026 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | 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 | 31 | |
|
公告 |
| 关注Perl、Lua、JavaScript。 |
| Blog信息 |
|
blog名称:
日志总数:10
评论数量:5
留言数量:2
访问次数:46261
建立时间:2005年7月26日 |
| |
|
 [Perl]Perl遍历目录的函数
软件技术, 电脑与网络
c-style 发表于 2005/7/26 19:50:21 |
| 下面的函数将遍历指定目录，并显示文件名为“e.*”（即任何扩展名）的文件。sub seekFolders{ local ($dir)=@_; opendir ($folder,$dir) || die print 'error'; local @array=readdir($folder); for(local $i=2;$i < @array;$i++) { if((-f $dir.'\\'.$array[$i]) && $array[$i]=~/^e\./i) { print $dir.'\\'.$array[$i].'<br>'; closedir($folder);return; } } for(local $i=2;$i < @array;$i++) { if(-d $dir.'\\'.$array[$i]) { seekFolders($dir.'\\'.$array[$i]); } } closedir($folder); return;}容易犯错的地方：如果不对$i作local限定，将出现死循环。 |
|
|
回复:Perl遍历目录的函数
软件技术, 电脑与网络
ss(游客)发表评论于2008/1/22 14:29:56 |
|
|
回复:Perl遍历目录的函数
软件技术, 电脑与网络
Nameless(游客)发表评论于2006/4/28 14:28:27 |
| print $dir.'\\'.$array[$i].'<br>';
closedir($folder);
return;
这里不能return,否则只能显示一个文件,达不到遍历的目的
|
|
» 1 »
|