Perl Requires Chilkat v11.0.0+

Example: Socket.DupSocket method

See more Socket/SSL/TLS Examples

Demonstrates how to call the DupSocket method. Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

my $socket = Chilkat2::Socket->new;
my $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.

my $socket_for_sending = Chilkat2::Socket->new;
$success = $socket->DupSocket($socket_for_sending);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

my $socket_for_monitor = Chilkat2::Socket->new;
$success = $socket->DupSocket($socket_for_monitor);
if (!$success) {
    print $socket->LastErrorText, "\n";
    exit;
}

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