, 1 min read

Reading Two Files Simultaneously With Perl

Task at hand: Read two or more files at the same time in Perl.

Solution:

#!/bin/perl -W
# Reading from multiple files simultaenously

use strict;

my ($f1,$f2);

open(F1,"< $ARGV[0]") || die("Cannot open $ARGV[0]");
open(F2,"< $ARGV[1]") || die("Cannot open $ARGV[1]");


while (defined($f1 = <F1>) && defined($f2 = <F2>)) {
    printf("f1=|%s|, f2=|%s|\n",$f1,$f2);
}