Here's a webserver, from the IO::All docs:perl -MLWP::Simple -e "getprint 'http://www.perlmonks.org'"
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 +? "./$1 |" : $1) if /^GET \/(.*) / })'
--
perl -MO=Deparse -e"u j t S n a t o e h r , e p l r a h k c r e"
In reply to Re^2: Favourite One-liners?
by epoptai
in thread Favourite One-liners?
by ghenry
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |