Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

Comment on

( #3333=superdoc: print w/replies, xml ) Need Help??
Hello Monks,

I am working on a Perl::TK project and I am trying to figure out the theory behind making a timed process run off.

I connect to a database and pull data from it and display it on the screen. I would like to have the program check for updates every 30 seconds or so and if need be, update the data.

I don't really have a good grasp as to how to efficiently force the program to check every x seconds?

My Idea:
I tried to do a check time statement in the main body of the script like so:

if(time - $StartTime) > 30) { &RefreshData; $StartTime = time;}
and have the program set the time initially when it first starts the section. But this did not work, I did some testing and even though I placed the if statement in the main body (just above the mainloop) it did not get called, which makes me believe that the system does not keep cycling (ie, like Java) but instead just sits and waits?

so my question is can someone help me with the theory of how to make this work? I assume I am missing something? I have been working on this for the last day and I am stumped :(

Thank you for any help,

In reply to TK Timed action by randor

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, 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, 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.
  • Log In?

    What's my password?
    Create A New User
    Discipulus what?! penitentiagite monaci!

    How do I use this? | Other CB clients
    Other Users?
    Others wandering the Monastery: (7)
    As of 2018-06-21 20:26 GMT
    Find Nodes?
      Voting Booth?
      Should cpanminus be part of the standard Perl release?

      Results (119 votes). Check out past polls.