There is a way to open a file for both reading and writing (see the description of open), however, I've never used it (and a read|write open will not, according to the docs, usually work on text files). When I need to do this, I tend to use Tie::File.

One obvious thing to try is to explicitly set $count to 0 ( ($count = 0;) before starting to count the lines which are more recent than $oldest_time. Also, you may be better off using (as you said)
foreach reverse @lines
or 

while(@lines){
    $timestamp = pop(@lines);

[download]

My tendency is to prefer the latter (but not when using Tie::File!). I think the reverse will create a temporary array, while nibbling away at the end doesn't. If the files are very large, you may need to use Tie::File or File::ReadBackwards.

emc

Experience is a hard teacher because she gives the test first, the lesson afterwards.

Vernon Sanders Law

In reply to Re: count lines, bottom to top by swampyankee
in thread count lines, bottom to top by Bennco99

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.