Thanks, I'll look into this...looks good so far though.
I can just stick my @t = times; print join("\n", @t), "\n";
at the bottom of the script.
On 5/1/06, John W. Krahn <[EMAIL PROTECTED]> wrote:
Anthony Ettinger wrote:
>
> I'm not trying to benchmark, just gather some real-world data in my tools.
>
> Basically, I set $start_time = time();, subtract out time waiting during
> user input, and take the difference of $end_time = time();
>
> Whether this is a good way of gather the data is beyond the question...I'm
> curious if there's a way to trigger a pause/unpause routine automatically
> from my library when <STDIN> is used.
You may just want to use the times() function:
perldoc -f times
It returns the time the CPU uses so it won't include the time waiting for IO.
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
--
Anthony Ettinger
Signature: http://chovy.dyndns.org/hcard.html
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
