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

嗯，同样建议遍历子目录就用File::Find，要不就用glob也可以。

On 6月30日, 下午8时27分, Michael Zeng <galaxy2...@gmail.com> wrote:
> use File::Find
>
> use File::Spec ;
> use File::Basename
>
> 2009/6/30 wd <w...@wdicc.com>
>
>
>
>
>
> > 那还不如用 find
> > find /data/ -type f
>
> > 2009/6/30 xjdengz <xjde...@gmail.com>
>
> > 2009/6/30 刘泽琛 <lynn.liuzec...@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 访问该论坛
-~----------~----~----~----~------~----~------~--~---