On Dec 24, 2006, at 2:59 AM, John W. Krahn wrote:
Yes I saw where you tested $year but since I don't have the actual
data to
test with I had to guess, and I guess I guessed wrong. :-)
I thought you did an amazing job at guessing what I intended without
being able to look at a datafile. The amount of "stuff" you were able
to shorten (or do without) was striking.
#Stop reading data at the end of the file, when $year is
empty. This
#gets you out of the datafile before the program chokes on
the footer.
exit unless $year;
Instead of exiting from the program you should change the eof test
above to:
if ( eof || !/\S/ ) {
close ARGV;
next;
}
Fantastic... It works!
So the above change says close and reset if end of file or some
regular expression that finds a blank line (is the translation of !/
\S/ not string?
Thanks to all for the assistance.
John
--
Perl isn't a toolbox, but a small machine shop where you can
special-order
certain sorts of tools at low cost and in short order. --
Larry Wall
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
