Sockets: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
|||
Line 154:
ExitSub:
DllCall("Ws2_32\WSACleanup")
ExitApp</lang>
=={{header|AutoIt}}==
Line 244:
freeaddrinfo(addrs);
}
}</lang>▼
=={{header|C++}}==▼
I have tested it using <code>nc -vlp 4321</code>.▼
<lang cpp>//compile with g++ main.cpp -lboost_system -pthread ▼
#include <boost/asio.hpp>▼
int main()▼
{▼
boost::asio::io_context io_context;▼
boost::asio::ip::tcp::socket sock(io_context);▼
boost::asio::ip::tcp::resolver resolver(io_context);▼
boost::asio::ip::tcp::resolver::query query("localhost", "4321");▼
boost::asio::connect(sock, resolver.resolve(query));▼
boost::asio::write(sock, boost::asio::buffer("Hello world socket\r\n"));▼
return 0;▼
}</lang>
Line 301 ⟶ 281:
}
}
▲}</lang>
▲=={{header|C++}}==
▲I have tested it using <code>nc -vlp 4321</code>.
▲<lang cpp>//compile with g++ main.cpp -lboost_system -pthread
▲#include <boost/asio.hpp>
▲int main()
▲{
▲ boost::asio::io_context io_context;
▲ boost::asio::ip::tcp::socket sock(io_context);
▲ boost::asio::ip::tcp::resolver resolver(io_context);
▲ boost::asio::ip::tcp::resolver::query query("localhost", "4321");
▲ boost::asio::connect(sock, resolver.resolve(query));
▲ boost::asio::write(sock, boost::asio::buffer("Hello world socket\r\n"));
▲ return 0;
}</lang>
Line 319:
libsocket.close(socket);
</lang>
=={{header|Clojure}}==
Line 382 ⟶ 381:
end;
end.</lang>
=={{header|Elena}}==
ELENA 4.1 :
Line 615:
#net->writestring('Hello World')
}</lang>
=={{header|Lua}}==
Line 836 ⟶ 835:
$sock->send('hello socket world');
$sock->free;</lang>
=={{header|Perl 6}}==▼
{{Works with|rakudo|2016.03}}▼
Will fail with a connect error if there is not a socket server of some kind available on the specified host and port.▼
<lang perl6>my $host = '127.0.0.1';▼
my $port = 256;▼
my $client = IO::Socket::INET.new(:$host, :$port);▼
$client.print( 'hello socket world' );▼
$client.close;</lang>▼
=={{header|PHP}}==
Line 875 ⟶ 864:
close(Output),
close(Input).</lang>
=={{header|PureBasic}}==
<lang Purebasic>InitNetwork()
Line 900 ⟶ 890:
(display "hello socket world\n" out)
(close-output-port out))</lang>
(formerly Perl 6)
▲{{Works with|rakudo|2016.03}}
▲Will fail with a connect error if there is not a socket server of some kind available on the specified host and port.
▲<lang perl6>my $host = '127.0.0.1';
▲my $port = 256;
▲my $client = IO::Socket::INET.new(:$host, :$port);
▲$client.print( 'hello socket world' );
▲$client.close;</lang>
=={{header|Rhope}}==
| |||