Your skill will accomplish what the force of many cannot |
|
PerlMonks |
direct data to a socketby demoralizer (Beadle) |
on Oct 22, 2014 at 08:14 UTC ( [id://1104652]=perlquestion: print w/replies, xml ) | Need Help?? |
demoralizer has asked for the wisdom of the Perl Monks concerning the following question:
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)
Back to
Seekers of Perl Wisdom
|
|