Perl Requires Chilkat v11.0.0+

Example: Socket.DupSocket method

See more Socket/SSL/TLS Examples

Demonstrates how to call the DupSocket method. Perl

use chilkat();

$success = 0;

$socket = chilkat::CkSocket->new();
$success = $socket->Connect("example.com",443,1,5000);

#  ...
#  ...

#  Duplicate the socket to share the same connection across threads.
#  In a multithreaded application, each thread should use its own socket object. For example:

#  - The main thread can use the original socket for reading.
#  - A secondary thread can use a duplicate for writing.
#  - Another thread can use a separate duplicate to monitor the connection status.

$socket_for_sending = chilkat::CkSocket->new();
$success = $socket->DupSocket($socket_for_sending);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

$socket_for_monitor = chilkat::CkSocket->new();
$success = $socket->DupSocket($socket_for_monitor);
if ($success == 0) {
    print $socket->lastErrorText() . "\r\n";
    exit;
}

#  All three socket objects: socket, socket_for_sending, and socket_for_monitor share the same underlying connection.