Perl
Perl
Measure Elapsed Time with the Convenience Timer
See more Socket/SSL/TLS Examples
Demonstrates Socket.StartTiming, which starts or restarts the object's convenience timer. The ElapsedSeconds property then reports the whole number of seconds since the call.
Background. This timer is a convenience for measuring durations and does not affect connection behavior or timeouts.
Chilkat Perl Downloads
use chilkat();
$socket = chilkat::CkSocket->new();
# Start (or restart) the object's convenience timer.
$socket->StartTiming();
# Perform some work. (Here the thread simply sleeps to let time pass.)
$socket->SleepMs(1500);
# Read the whole number of seconds elapsed since StartTiming was called.
print "Elapsed seconds: " . $socket->get_ElapsedSeconds() . "\r\n";