perl 同时读入两个文件
代码
open IN1, "1.txt" or die $!;
open IN2, "2.txt" or die $!;
while((my $v1=<IN1>) && (my $v2=<IN2>)){
...
}
perl 同时读入两个文件
open IN1, "1.txt" or die $!;
open IN2, "2.txt" or die $!;
while((my $v1=<IN1>) && (my $v2=<IN2>)){
...
}