Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

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.

issue:
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.

Problem:
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,
Bob

In reply to TK Timed action by randor

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!
  • 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
  • Outside of code tags, you may need to use entities for some characters:
            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?
    Username:
    Password:

    What's my password?
    Create A New User
    Chatterbox?
    and the web crawler heard nothing...

    How do I use this? | Other CB clients
    Other Users?
    Others drinking their drinks and smoking their pipes about the Monastery: (4)
    As of 2014-08-31 03:26 GMT
    Sections?
    Information?
    Find Nodes?
    Leftovers?
      Voting Booth?

      The best computer themed movie is:











      Results (294 votes), past polls