Difference between revisions of "Perl"
From dbawiki
(→=A one-line web server!) |
|||
| Line 10: | Line 10: | ||
* Whatever the resulting object is, we direct the contents back at our socket which is in $_[0]. | * Whatever the resulting object is, we direct the contents back at our socket which is in $_[0]. | ||
| − | From: | + | From: [http://www.commandlinefu.com/commands/view/5235/perl-simple-webserver commandlinefu.com] |
Revision as of 22:47, 2 June 2013
A one-line web server!
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 ? "./$1 |" : $1) if /^GET \/(.*) / })'
- First we accept a socket and fork the server. Then we overload the new socket as a code ref. This code ref takes one argument, another code ref, which is used as a callback.
- The callback is called once for every line read on the socket. The line is put into $_ and the socket itself is passed in to the callback.
- Our callback is scanning the line in $_ for an HTTP GET request. If one is found it parses the file name into $1. Then we use $1 to create an new IO::All file object... with a twist. If the file is executable("-x"), then we create a piped command as our IO::All object. This somewhat approximates CGI support.
- Whatever the resulting object is, we direct the contents back at our socket which is in $_[0].
From: commandlinefu.com
