perl中如何循环打开文件

ljs53

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

tmp

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

DQP

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

ljs53

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

churchmice

可以的

1. 
   
2. foreach my $filename qw ( a_list_of_filename goes here) {
   
3.    open my $file,"<",$filename or die "Fail to open $filename $!";
   
4.    do your things here
   
5.     close $file;
   
6. }
   

复制代码

ynchnluiti

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

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

复制代码

ljs53

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

[ 本帖最后由 ljs53 于 2008-11-25 14:58 编辑 ]

flw

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

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

要这样写：

1. 1 while(<>);

复制代码

ljs53

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

ljs53

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