Perl

Measure Elapsed Time with the Convenience Timer

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

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $socket = Chilkat2::Socket->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->ElapsedSeconds, "\n";