Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: The most precise second (timer)

by harangzsolt33 (Chaplain)
on Dec 04, 2019 at 16:08 UTC ( [id://11109665]=note: print w/replies, xml ) Need Help??


in reply to The most precise second (timer)

If you're on Windows, you could write a JavaScript application that calls perl every second.

Save this as "something.hta" on your desktop and open it in Notepad. You will have to edit the location of the perl interpreter and the location of your perl script within the code. And then simply double-click on the JavaScript program and click on Start. This can also display the exact millisec when perl was executed, but I've noticed that it's not exactly 1 second. It's always 10 ms more. But you can adjust for that by calling the script every 990ms instead of 1000.

<HTML> <BODY onLoad="Init();"> <INPUT TYPE=BUTTON VALUE="START" onClick="Start();"> <INPUT TYPE=BUTTON VALUE="STOP" onClick="Stop();"> <SCRIPT> // I have tested this. It works. function Init() { WScript = new ActiveXObject("WScript.Shell"); RUNNING = 0; document.title = "INACTIVE"; } function RunPerl() { /* var T = new Date(); document.title = T.getTime(); // SHOW MILLISECONDS IN THE WINDOW TI +TLE BAR */ WScript.Run('C:\\BIN\\PERL\\tinyperl.exe K:\\DESKTOP\\myscript.pl'); } function Start() { if (!RUNNING) RRR = setInterval(RunPerl, 1000); // 1000 ms delay RUNNING = 1; document.title = "RUNNING"; } function Stop() { if (RUNNING) clearInterval(RRR); RUNNING = 0; document.title = "STOPPED"; } </SCRIPT>

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11109665]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (2)
As of 2024-04-26 05:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found