Hello world/Web server: Difference between revisions
Content added Content deleted
(Add Perl 6 implementation) |
(→{{header|AWK}}: GAWK webserver) |
||
Line 5: | Line 5: | ||
Note that starting a web browser or opening a new window with this URL is not part of the task. Additionally, it is permissible to serve the provided page as a plain text file (there is no requirement to serve properly formatted [[HTML]] here). The browser will generally do the right thing with simple text like this. |
Note that starting a web browser or opening a new window with this URL is not part of the task. Additionally, it is permissible to serve the provided page as a plain text file (there is no requirement to serve properly formatted [[HTML]] here). The browser will generally do the right thing with simple text like this. |
||
=={{header|AWK}}== |
|||
With GNU AWK (gawk) a simple web server can be implemented. The example is taken from here |
|||
[http://www.gnu.org/software/gawk/manual/gawkinet/gawkinet.html#Primitive-Service] |
|||
(Documentation is licensed under GNU Free Documentation License, Version 1.3) |
|||
<lang AWK>#!/usr/bin/gawk -f |
|||
BEGIN { |
|||
RS = ORS = "\r\n" |
|||
HttpService = "/inet/tcp/8080/0/0" |
|||
Hello = "<HTML><HEAD>" \ |
|||
"<TITLE>A Famous Greeting</TITLE></HEAD>" \ |
|||
"<BODY><H1>Hello, world</H1></BODY></HTML>" |
|||
Len = length(Hello) + length(ORS) |
|||
print "HTTP/1.0 200 OK" |& HttpService |
|||
print "Content-Length: " Len ORS |& HttpService |
|||
print Hello |& HttpService |
|||
while ((HttpService |& getline) > 0) |
|||
continue; |
|||
close(HttpService) |
|||
}</lang> |
|||
=={{header|C}}== |
=={{header|C}}== |