msoap · September 26, 2018 16:09 · importnil · Mar 20, 2016 · msoap · Apr 9, 2016
diff --git a/httpd-dancer.pl b/httpd-dancer.pl
 #!/usr/bin/perl

 use warnings;
 use strict;

 use Dancer;

 get '/' => sub {
    return "Hello World from perl with Dancer/012345678901234567890123456789012345678901234567890123456789///////";
 };

 dance();
diff --git a/httpd-mojo.pl b/httpd-mojo.pl
 #!/usr/bin/perl

 use warnings;
 use strict;

 use Mojolicious::Lite;

 get '/' => sub {
    my $self = shift;
    $self->render(text => "Hello world from perl with Mojolicious/0123456789012345678901234567890123456789//////");
 };

 app->secrets(['ZdeceVW4f&32S*3dF_21'])->start('daemon', listen_address => 'http://*:8080');
diff --git a/httpd-server-simple.pl b/httpd-server-simple.pl
 #!/usr/bin/perl

 use warnings;
 use strict;

 package SimpleWebServer;

 use HTTP::Server::Simple::CGI;
 use base qw(HTTP::Server::Simple::CGI);

 sub handle_request {
    my $self = shift;
    my $cgi = shift;
    print "HTTP/1.0 200 OK\r\n";    
    print $cgi->header, "\n";
    print "Hello from perl with HTTP::Server::Simple//012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789";
 }

 package main;

 SimpleWebServer->new(8080)->run();
diff --git a/httpd.go b/httpd.go
 package main

 import (
 	"log"
 	"net/http"
 )

 func main() {
 	responseBytes := []byte("Hello world from Go/012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789")
 	http.HandleFunc("/", func(w http.ResponseWriter, r *http.Request) {
 		w.Write(responseBytes)
 	})

 	err := http.ListenAndServe(":8080", nil)
 	if err != nil {
 		log.Fatal(err)
 	}
 }
diff --git a/httpd.js b/httpd.js
 #!/usr/bin/env node

 var http = require('http');
 http.createServer(function (req, res) {
    res.writeHead(200, {'Content-Type': 'text/plain'});
    res.end('Hello World from node.js/012345678901234567890123456789012345678901234567890123456789012345678');
 }).listen(8080);
diff --git a/httpd.pl b/httpd.pl
 #!/usr/bin/perl

 use warnings;
 use strict;

 use HTTP::Daemon;
 use HTTP::Status;

 # --------------------------------------------------------------------
 sub main {
    my $httpd = HTTP::Daemon->new(LocalPort => 8080) || die;
    print "URL: ", $httpd->url, "\n";

    while (my $c = $httpd->accept) {
        while (my $r = $c->get_request) {
            if ($r->method eq 'GET' and $r->uri->path eq "/") {
                my $res = HTTP::Response->new(RC_OK);
                $res->content("Hello World from perl with HTTP::Daemon///01234567890123456789012345678901234567890123456789\n");
                $res->content_type('text/plain');
                $c->send_response($res);
            } else {
                $c->send_error(RC_FORBIDDEN)
            }
        }
        $c->close;
    }
 }

 # --------------------------------------------------------------------
 main();
diff --git a/httpd.py b/httpd.py
 #!/usr/bin/env python

 import BaseHTTPServer

 class HttpSimpleServer(BaseHTTPServer.BaseHTTPRequestHandler):
    def do_GET(s):
        s.send_response(200)
        s.send_header("Content-type", "text/plain")
        s.end_headers()
        s.wfile.write("Hello from Python/012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789///")

 if __name__ == '__main__':
    server_class = BaseHTTPServer.HTTPServer
    httpd = server_class(('', 8080), HttpSimpleServer)
    httpd.serve_forever()
    httpd.server_close()
diff --git a/httpd_fast.go b/httpd_fast.go
 package main

 import (
 	"fmt"
 	"log"

 	"github.com/valyala/fasthttp"
 )

 // ----------------------------------------------------------------------------
 func main() {
 	fmt.Println("Start fasthttp on 8080")
 	responseBytes := []byte("Hello world from Go/Fasthttp/9012345678901234567890123456789012345678901234567890123456789/12")

 	err := fasthttp.ListenAndServe(":8080", func(ctx *fasthttp.RequestCtx) {
 		_, err := ctx.Write(responseBytes)
 		if err != nil {
 			log.Print(err)
 			return
 		}
 	})
 	if err != nil {
 		log.Fatal(err)
 	}
 }
diff --git a/Raspberry Pi httpd benchmark.md b/Raspberry Pi httpd benchmark.md
	#!/usr/bin/perl

	use warnings;
	use strict;

	use Dancer;

	get '/' => sub {
	return "Hello World from perl with Dancer/012345678901234567890123456789012345678901234567890123456789///////";
	};

	dance();
	package main

	import (
	"log"
	"net/http"
	)

	func main() {
	responseBytes := []byte("Hello world from Go/012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789")
	http.HandleFunc("/", func(w http.ResponseWriter, r *http.Request) {
	w.Write(responseBytes)
	})

	err := http.ListenAndServe(":8080", nil)
	if err != nil {
	log.Fatal(err)
	}
	}
	#!/usr/bin/env node

	var http = require('http');
	http.createServer(function (req, res) {
	res.writeHead(200, {'Content-Type': 'text/plain'});
	res.end('Hello World from node.js/012345678901234567890123456789012345678901234567890123456789012345678');
	}).listen(8080);
	#!/usr/bin/env python

	import BaseHTTPServer

	class HttpSimpleServer(BaseHTTPServer.BaseHTTPRequestHandler):
	def do_GET(s):
	s.send_response(200)
	s.send_header("Content-type", "text/plain")
	s.end_headers()
	s.wfile.write("Hello from Python/012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789///")

	if __name__ == '__main__':
	server_class = BaseHTTPServer.HTTPServer
	httpd = server_class(('', 8080), HttpSimpleServer)
	httpd.serve_forever()
	httpd.server_close()
	package main

	import (
	"fmt"
	"log"

	"github.com/valyala/fasthttp"
	)

	// ----------------------------------------------------------------------------
	func main() {
	fmt.Println("Start fasthttp on 8080")
	responseBytes := []byte("Hello world from Go/Fasthttp/9012345678901234567890123456789012345678901234567890123456789/12")

	err := fasthttp.ListenAndServe(":8080", func(ctx *fasthttp.RequestCtx) {
	_, err := ctx.Write(responseBytes)
	if err != nil {
	log.Print(err)
	return
	}
	})
	if err != nil {
	log.Fatal(err)
	}
	}