怎样编一个程序，将一个文件夹下的所有文件的文件名都复制到一个txt文件中

wubingran

用perl～～～～如题～～～～～～所示

ly5066113

大才小用了。。。
直接用shell吧
ls > a.txt

wubingran

我不懂～～～shell~~~~~
还是请教一下～～～～

怎样才能大材小用～～～～～～～

[ 本帖最后由 wubingran 于 2008-9-3 16:25 编辑 ]

cobrawgl

原帖由 ly5066113 于 2008-9-3 16:20 发表
大才小用了。。。
直接用shell吧
ls > a.txt

这样的话，文件夹的名字也会写进去啊

cobrawgl

use File::Find;

my @dir = qw(your_dir);
open FILE ">your_file.txt" or die;

File::Find::find(\&wanted, @dir);

sub wanted { print FILE $_ unless -d }

ly5066113

原帖由 cobrawgl 于 2008-9-3 16:27 发表



这样的话，文件夹的名字也会写进去啊

个人理解不同，文件夹也是文件，只不过type是d。

wubingran

原帖由 cobrawgl 于 2008-9-3 16:31 发表
use File::Find;

my @dir = qw(your_dir);
open FILE ">your_file.txt" or die;

File::Find::find(\&wanted, @dir);

sub wanted { print FILE $_ unless -d }

谢谢你能够教我大材小用～～～～～～～～～非常感谢～～～～～

forlorngenius

ls -l | grep -v '^d'

cobrawgl

原帖由 ly5066113 于 2008-9-3 16:54 发表


个人理解不同，文件夹也是文件，只不过type是d。

都是文件，但 lz 的要求就肯定不包括这种文件

ly5066113

原帖由 cobrawgl 于 2008-9-3 17:10 发表


都是文件，但 lz 的要求就肯定不包括这种文件

那符号连接呢？二进制文件？
这样感觉更好吧 print FILE $_ if -f
我们讨论其实都没用，还是让楼主把需求说清楚吧。