如何批处理文件?

jwkai

UID: 10895
帖子: 25
积分: 57
在线时间: 1 小时

1^# jwkai 发表于 2006-03-10 11:44

如何批处理文件?

如何批处理文件?
我在windows环境下用perl,
想要把一个目录下的所有文件都处理一遍,然后输出到另一个目录里面。
不知道有没有什么好的方法.

1802a

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

2^# 1802a 发表于 2006-03-11 15:23

把文件名放到一个文件里面.
把文件名放到一个文件里面，依次读取

unixapi

UID: 43402
帖子: 189
积分: 434
在线时间: 2 天

3^# unixapi 发表于 2007-04-06 09:18

$olddir="d:/22/";--$ne.
$olddir="d:/22/";
$newdir="d:/33/";
for my $file(glob("$olddir*"))
{ print $file;
open($TH,$file);
$file=~/\/(\w+)$/;
open($TH2,">$newdir$1");
#写入文件
close $TH2;
close $TH;
}

unixapi

UID: 43402
帖子: 189
积分: 434
在线时间: 2 天

4^# unixapi 发表于 2007-04-06 09:19

您试试吧，可以的话给个回.
您试试吧，可以的话给个回话

unixapi

UID: 43402
帖子: 189
积分: 434
在线时间: 2 天

5^# unixapi 发表于 2007-04-06 09:29

$olddir="d:/22/";--$ne.
$olddir="d:/22/";
$newdir="d:/33/";
for my $file(glob("$olddir*"))
{ print $file;
open(TH,$file);
$file=~/\/(\w+)$/;
open(TH2,">$newdir$1");
#写入文件
close TH2;
close TH;
}

uliyas

UID: 4395
帖子: 91
积分: 209
在线时间: 11 小时

6^# uliyas 发表于 2007-04-06 10:09

楼上的回的是06年的帖子咯.
楼上的回的是06年的帖子咯 ^_^