Perl: the Markov chain saw | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
Hi there,
looking at CPAN module IO:All I found some syntax I don't understand, maybe sb. here can help me with that: perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 ? "./$1 |" : $1) if /^GET \/(.*) / })' What's driving me crazy is the "<" after $_[0]. If I dump $_[0] I get: bless( \*Symbol::GEN3, 'IO::All::Socket' ); I've been searching through the Internet and perldoc but couldn't find any description what this "<" is doing exactly :( Thanks a lot for any help (even any keywords to search for will be highly welcomed) In reply to direct data to a socket by demoralizer
|
|