Re: Install / Enable GetMilliSec
Re: Install / Enable GetMilliSec
- Subject: Re: Install / Enable GetMilliSec
- From: T&B <email@hidden>
- Date: Tue, 18 Dec 2007 10:23:13 +1100
The following handlers have served me well to give fractions of a
second. They use do shell and Perl, but you don't need to know any of
that to use them, nor install anything special.
Tom
on run -- Sample
set startTime to TimerStart()
delay 1 -- second
set elapsedTime to TimerStop(startTime)
display dialog "startTime = " & startTime & linefeed & "elapsedTime =
" & elapsedTime
end run
on TimerStart()
set startTime to (do shell script "perl -e 'use Time::HiRes qw(time);
print time'") as real
return startTime
end TimerStart
on TimerStop(startTime)
set endTime to (do shell script "perl -e 'use Time::HiRes qw(time);
print time'") as real
set elapsedTime to endTime - startTime
set startTime to TimerStart()
set endTime to (do shell script "perl -e 'use Time::HiRes qw(time);
print time'") as real
set overheadTime to endTime - startTime
set elapsedTime to elapsedTime - overheadTime
return elapsedTime
end TimerStop
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden