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

请高手指点：

怎么用Perl把一个文件夹中的所有文件的完整路径加文件名提取出来，并且输出到一个文件中。输出的文件中，每一行列出一个文件的全路径。

比如待提取的文件夹路径为
/data/perl/waiting/

生成的文件为        /data/perl/mine/list


谢谢！

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

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