On Fri, Mar 20, 2009 at 2:36 PM, Federico Lucifredi <[email protected]> wrote:
> Suggestions for an equivalent Perl one-liner? Note that the python one
> is "out of the box" (I did not need to install anything).
IO::All's documentation includes a one-liner for this.
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1
? "./$1 |" : $1) if /^GET \/(.*) / })'
Shawn
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
