Cursus Raku / Functioneel, concurrent, reactief en webprogrammeren / Webprogrammeren / Verbindingen op afstand maken / Exercises / Verzend en ontvang
Oplossing: Verzend en ontvang
Hier is een mogelijke oplossing voor de taak.
Code
my $conn = IO::Socket::INET.new(:host('example.com'), :port(80));
$conn.print("HEAD / HTTP/1.0\r\nHost: example.com\r\n\r\n");
my $response = $conn.recv;
$conn.close;
say $response.lines.first;🦋 Je kunt de broncode vinden in het bestand send-and-receive.raku.
Uitvoer
HTTP/1.1 200 OKOpmerkingen
.printverstuurt het verzoek; de protocolregels eindigen op\r\n. EenHEAD-verzoek vraagt de server alleen om de statusregel en de headers, dus is het antwoord klein..recvleest het antwoord, en.lines.firstneemt de eerste regel ervan — de HTTP-statusregel.