note
xenchu
<p>
I couldn't get [id://169829|Enlil's] code to work until I changed:
</p>
<code>print unless ( /^Header1$/ .. /^END LIST$/ );</code>
<p>
to</p>
<code>print unless ( /Header1/ .. /END LIST/ );</code>
<p>As originally coded every line was printed.
</p>
<p>
<b>Update:</b> I did get [id://169829|Enlil's] code to work on Solaris 5.9. The only machine it did not work on was the one with Mandrake Linux on it. I have no explanation for that.
</p>
<p>
xenchu
</p>
<div class="pmsig">
<div class="pmsig-154199">
<hr>
<center><code>That's about all there is to it, except for everything else. -<b>Programming Perl</b> (p.346)</code></center>
</div>
</div>
347813
347813