在Perl中，我怎样才能从一个循环中的多个文件句柄读取？

问题描述

  while（不是文件的结尾）
 $ var1 =从文件1读取一行
 $ var2 =从文件2读取一行
＃对变量进行操作
结束而
  

我不知道如何从一个中的两个文件一次读取一行，而循环。

解决方案

好像你自己写的答案差不多。请检查两个文件句柄的 eof ，如下所示：

  while （不是eof $ fh1而不是eof $ fh2）{
 my $ var1 =< $ fh1>; 
 my $ var2 =< $ fh2>; 
＃做东西
} 
  

更多阅读：

I was wondering how I could implement this in Perl:

while ( not the end of the files )
    $var1 = read a line from file 1
    $var2 = read a line from file 2
    # operate on variables
end while

I'm not sure how to read one line at a time from two files in one while loop.

解决方案

Seems like you wrote your answer yourself, almost. Just check for eof for both file handles, like so:

while (not eof $fh1 and not eof $fh2) {
    my $var1 = <$fh1>;
    my $var2 = <$fh2>;
    # do stuff
}

More reading:

• perldoc -f open
• perldoc -f eof
• perldoc perlopentut

这篇关于在Perl中，我怎样才能从一个循环中的多个文件句柄读取？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！