[PerlChina] Re: 请教：用perl怎么把文件夹中所有文件明提取出来

刘泽琛 wrote:
> 请高手指点：
>
> 怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来，并且输出到
> 一个文件中。输出的文件中，每一行列出一个文件的全路径。
>
> 比如待提取的文件夹路径为
> /data/perl/waiting/
>
> 生成的文件为 /data/perl/mine/list
>

咳， 生成的文件应该是 /data/perl/waiting/mine/list

如果你是对固定目录操作，读取目录内容(readdir)后在判断是否文件(-d) 然后
dir + 文件名就可以了。

如果你是对多个目录或目录递归操作，使用 File::Find 即可。

具体如何写代码请查相关 perl 文档。

Qiang(James)

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---