Help for this page

Select Code to Download

Select or download this

open A, '1.dat' or die $!;
open B, '2.dat' or die $!;
while (my $lineA=<A>){
...
    print $lineA,' ', $lineB;
    }
}

Select or download this
```
1.dat
----
1
...
a
b
c
```