|
#!/usr/local/bin/perl
open (INFILE1, "merge1") || die ("Cannot open input file merge1\n");
open (INFILE2, "merge2") || die ("Cannot open input file merge2\n");
$line1 = <INFILE1>;
$line2 = <INFILE2>;
while ($line1 ne "" || $line2 ne "") {
if ($line1 ne "") {
print ($line1);
$line1 = <INFILE1>;
}
if ($line2 ne "") {
print ($line2);
$line2 = <INFILE2>;
}
}
|