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

use File::Find

 

use File::Spec ;

use File::Basename

 

 

2009/6/30 wd <wd@wdicc.com>

那还不如用 find
find /data/ -type f

2009/6/30 xjdengz <xjdengz@gmail.com>

2009/6/30 刘泽琛 <lynn.liuzechen@gmail.com>:

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

为什么不用shell呢
只提取文件名 ls -Rl yourdir |grep ^- |awk '{print $NF}'
提取完整路径 find path -type f
然后重定向到文件就行了吧

> 谢谢！
>
> >
>

--
           Yours Sincerely
                   Zeng Hong

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

-~----------~----~----~----~------~----~------~--~---