aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Hello-world-Web-server/Perl-6/hello-world-web-server-1.pl6 Normal file
View file

@ -0,0 +1,7 @@
my $listen = IO::Socket::INET.new(:listen, :localhost<localhost>, :localport(8080));
loop {
my $conn = $listen.accept;
my $req = $conn.get ;
$conn.print: "HTTP/1.0 200 OK\r\nContent-Type: text/plain; charset=UTF-8\r\n\r\nGoodbye, World!\r\n";
$conn.close;
}

8
Task/Hello-world-Web-server/Perl-6/hello-world-web-server-2.pl6 Normal file
View file

@ -0,0 +1,8 @@
react {
whenever IO::Socket::Async.listen('0.0.0.0', 8080) -> $conn {
whenever $conn.Supply.lines -> $line {
$conn.print: "HTTP/1.0 200 OK\r\nContent-Type: text/plain; charset=UTF-8\r\n\r\nGoodbye, World!\r\n";
$conn.close;
}
}
}

6
Task/Hello-world-Web-server/Perl-6/hello-world-web-server.pl6
View file

@ -1,6 +0,0 @@
my $sock = IO::Socket::INET.new(:localhost('0.0.0.0'), :localport(8080), :listen);
say "Goodbye Web Server listening on $sock.localhost():$sock.localport()";
while $sock.accept -> $client {
$client.send: "HTTP/1.0 200 OK\r\nContent-Type: text/plain; charset=UTF-8\r\n\r\nGoodbye, World!\r\n";
$client.close;
}