Perl
Perl
Receive a Line Terminated by CRLF
See more Socket/SSL/TLS Examples
Demonstrates Socket.ReceiveToCRLF, which receives text through a CRLF line terminator and returns the text including the terminator.
Background. Chilkat encodes CR followed by LF using
StringCharset and searches the incoming byte stream for that exact sequence. This is convenient for line-oriented text protocols.Chilkat Perl Downloads
use chilkat();
$success = 0;
$socket = chilkat::CkSocket->new();
# Connect to the server using TLS. The 3rd argument enables the TLS handshake after the TCP
# connection succeeds; the 4th is the maximum time to wait, in milliseconds.
$bTls = 1;
$maxWaitMs = 5000;
$success = $socket->Connect("example.com",5000,$bTls,$maxWaitMs);
if ($success == 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
# StringCharset controls the character encoding used when sending and receiving text.
$socket->put_StringCharset("utf-8");
# Send a request using a simple application-defined text protocol in which each message ends with a
# CRLF.
$command = "STATUS\r\n";
$success = $socket->SendString($command);
if ($success == 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
# Receive text through a CRLF line terminator, returning the text including the terminator. This is
# convenient for line-oriented text protocols in which each response is a CRLF-terminated line.
$responseLine = $socket->receiveToCRLF();
if ($socket->get_LastMethodSuccess() == 0) {
print $socket->lastErrorText() . "\r\n";
exit;
}
print $responseLine . "\r\n";