in reply to perl one-liner to serve httpd current directory
A couple more. Plack::App::Directory is what I usually use–
plackup -MPlack::App::Directory -e 'Plack::App::Directory->new({root = +> q{.}})->to_app'
This (not necessarily recommended but good to know about) IO::All recipe does executables like CGIs too–
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 +? "./$1 |" : $1) if /^GET \/(.*) / })'
Update: because that verbosity is off-putting, I'd like to add that I use the first as this alias.
moo@cow[36]~>which www www: aliased to plackup -p 5000 -MPlack::App::Directory -e 'Plack::App +::Directory->new({root => q{.}})->to_app'
|
|---|