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

wubingran

UID: 22153
帖子: 1
积分: 2
在线时间: 10 分钟

1^# wubingran 发表于 2008-09-03 16:17

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

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

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-09-03 16:20

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

wubingran

UID: 22153
帖子: 1
积分: 2
在线时间: 10 分钟

3^# wubingran 发表于 2008-09-03 16:22

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

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

4^# cobrawgl 发表于 2008-09-03 16:27

QUOTE:

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

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

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

5^# cobrawgl 发表于 2008-09-03 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 }

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

6^# ly5066113 发表于 2008-09-03 16:54

QUOTE:

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

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

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

wubingran

UID: 22153
帖子: 1
积分: 2
在线时间: 10 分钟

7^# wubingran 发表于 2008-09-03 17:00

QUOTE:

原帖由 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

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

8^# forlorngenius 发表于 2008-09-03 17:05

ls -l | grep -v '^d'

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

9^# cobrawgl 发表于 2008-09-03 17:10

QUOTE:

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

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

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

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

10^# ly5066113 发表于 2008-09-03 17:14

QUOTE:

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

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

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