Revision as of 06:27, 25 April 2018 (view source) rosettacode>Angoca No edit summary ← Older edit		Revision as of 02:28, 26 April 2018 (view source) Ktown (talk \| contribs) (→‎{{header\|Perl 6}}) Newer edit →
Line 1,235: =={{header\|Perl 6}}== {{works with\|Rakudo}} <lang perl6>my $~~sock~~listen = IO::Socket::INET.new(:listen, :localhost<localhost~~('0.0.0.0')~~>, :localport(8080)~~, :listen~~); loop { ~~say "Goodbye Web Server listening on $sock.localhost():$sock.localport()";~~ my $conn = $listen.accept; ~~while $sock.accept -> $client {~~ my $req = $conn.get ; $~~client~~conn.~~send~~print: "HTTP/1.0 200 OK\r\nContent-Type: text/plain; charset=UTF-8\r\n\r\nGoodbye, World!\r\n"; $~~client~~conn.close; }</lang> Async: <lang perl6>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; } } }</lang>

Hello world/Web server: Difference between revisions

Hello world/Web server (view source)