perl 同时读入两个文件

perl 同时读入两个文件

代码

open IN1, "1.txt" or die $!;open IN2, "2.txt" or die $!;while((my $v1=<IN1>) && (my $v2=<IN2>)){    ...}