note
Roy Johnson
You definitely don't want to nest your file-reading loops. Instead, try something like this (untested):
<code>
while (my $w1 = <FILE> and my $w2 = <FILE2>) {
if ($w1 lt $w2) {
print "\n";
$w1 = <FILE>;
}
elsif ($w1 gt $wt) {
print "\n";
$w2 = <FILE2>;
}
else {
print $w1;
}
}
# Leftover lines in either file?
print "\n" while <FILE>;
print "\n" while <FILE2>;
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-300037">
<hr>
<small><b>Caution:</b> Contents may have been coded under pressure.</small>
</div></div>
870665
870665