perl中如何循环打开文件

ljs53

UID: 3295
帖子: 44
积分: 101
在线时间: 2 小时

1^# ljs53 发表于 2008-11-19 15:49

perl中如何循环打开文件

perl中可以循环的打开文件吗？

tmp

UID: 34600
帖子: 13
积分: 29
在线时间: 10 分钟

2^# tmp 发表于 2008-11-19 16:04

啥意思? 多个文件吗?
可以的, 你是怕文件描述符被覆盖?
我做过这个,但是很高兴的忘记了, 但是我记得可以

DQP

UID: 22959
帖子: 5
积分: 11
在线时间: 10 分钟

3^# DQP 发表于 2008-11-19 16:06

不明白　循环打开是什么意思
这样么？
for (1..4){
open FH, "<t.pl";
print scalar <FH>;
}
可以　每次都重新打开

ljs53

UID: 3295
帖子: 44
积分: 101
在线时间: 2 小时

4^# ljs53 发表于 2008-11-19 20:22

我现在在做一个代码行统计
现在有多个文件
我要循环打开每个文件知道每个文件里面代码的行数
最终得出一个总数
所以问可以不可以循环打开多个文件

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-11-19 21:44

可以的

[Copy to clipboard] [ - ]

CODE:

foreach my $filename qw ( a_list_of_filename goes here) {
open my $file,"<",$filename or die "Fail to open $filename $!";
do your things here
close $file;
}

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

6^# ynchnluiti 发表于 2008-11-20 00:46

QUOTE:

原帖由 ljs53 于 2008-11-19 20:22 发表
我现在在做一个代码行统计
现在有多个文件
我要循环打开每个文件知道每个文件里面代码的行数
最终得出一个总数
所以问可以不可以循环打开多个文件

[Copy to clipboard] [ - ]

CODE:

while (<>) {;}
print "total lines:$.\n";

ljs53

UID: 3295
帖子: 44
积分: 101
在线时间: 2 小时

7^# ljs53 发表于 2008-11-25 13:59

那怎么把多个文件里面的内容写入到一个文件中去呢？
比如说我现在有一条命令执行多次要把多次执行的结果写入到一个文件中去怎么办呢？

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

8^# flw 发表于 2008-11-25 14:18

QUOTE:

原帖由 ynchnluiti 于 2008-11-20 00:46 发表

while () {;}
print "total lines.\n";

要这样写：

[Copy to clipboard] [ - ]

CODE:

1 while(<>);

ljs53

UID: 3295
帖子: 44
积分: 101
在线时间: 2 小时

9^# ljs53 发表于 2008-11-25 14:59

这个刚才想到怎么弄了！！谢谢

ljs53

UID: 3295
帖子: 44
积分: 101
在线时间: 2 小时

10^# ljs53 发表于 2008-11-25 15:55

那怎么把多个文件里面的内容写入到一个文件中去呢？
比如说我现在有一条命令执行多次要把多次执行的结果写入到一个文件中去怎么办呢？