Bloehdian has asked for the wisdom of the Perl Monks concerning the following question:
Hello Monks,
the following code
$sock = IO::Socket::SSL->new( LocalAddr => $ssl_addr, LocalPort => $ssl_port, Listen => 5, Reuse => 1, Proto => 'tcp', SSL_cert_file => 'server.crt', SSL_key_file => 'server.key', ) || die "Can't bind TCP SSL port"; $sock->blocking(0); ... some other code ... while ( 1 ) { ... some other code ... # SSL server listens to clients # $client_sock = $sock->accept(); $sock->recv( $ext_mesg, 4096 ); eval( $bgp->$ext_mesg ); ... some other code ... }
leads to the following message
Use of recv() not implemented in IO::Socket::SSL; use read/sysread instead at test.pl line 181.but I have no idea how to do this. read/sysread require a file handle. How to I get a file handle from an IO::Socket::SSL object?
Cheers
Bloehdian
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Using read/syswrite with IO::Socket::SSL
by Corion (Patriarch) on Oct 25, 2016 at 06:59 UTC | |
|
Re: Using read/syswrite with IO::Socket::SSL
by tybalt89 (Monsignor) on Oct 25, 2016 at 15:26 UTC | |
|
Re: Using read/syswrite with IO::Socket::SSL
by noxxi (Pilgrim) on Oct 25, 2016 at 18:05 UTC | |
by Bloehdian (Beadle) on Oct 26, 2016 at 13:16 UTC | |
by noxxi (Pilgrim) on Oct 26, 2016 at 20:07 UTC | |
by tybalt89 (Monsignor) on Oct 26, 2016 at 15:21 UTC | |
by Bloehdian (Beadle) on Oct 26, 2016 at 17:31 UTC | |
by tybalt89 (Monsignor) on Oct 26, 2016 at 17:52 UTC |