I don't see anywhere that you print to $fh_out...you open it for writing (which, since you're using '>' in your open, also creates the file if it doesn't already exist), but all of your print statements are to STDOUT (by default, since you don't specify a filehandle to print to).

So you never print anything to the output file.

If I understand what you're doing, I think your print statement in your while() loop should read:

print $fh_out "$id\t$date\t$track{$id}{COUNT}\n"
      if $prevtime and $time - $prevtime > 3600;

[download]

I just entered your code, created your input file and ran the code against it...with the print to the proper filehandle...and it correctly wrote the output to the file.

However, the information that it wrote was not what you show you're expecting. So there are probably other problems with your code.

Hence, getting the print statement right solves the "empty file" challenge. Getting the information written to be what you're looking for is another matter.

ack Albuquerque, NM

In reply to Re: Comparing Dates and Reoccurance - Part II by ack
in thread Comparing Dates and Reoccurance - Part II by tuakilan

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.