package _;use threads;(caller(//)) [//+//+//]=~/$_/?"": push@_,async{ print _($_)}while$_=each%_::;;$_-> join for @_; sub _ {print chr eval $_[0]unless $_[0] =~/_+/ ; return} sub Just {0x4a} sub Another {0x61} sub Perl {0x68} sub Hacker {0x70}
In reply to Sub Caller::Thread {} by cristian
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |