perl -wle'%subs = ("a"=>sub{"A"}, "b"=>sub{"B"}, "c"=>sub{"C"}); print + &{$subs{((keys %subs)[rand keys %subs])}} for 1..10'
<code> map print(chr(hex((q{6f634070617a6d692e7273650a}=~/../g)hex))),(q{375542349abb99098106c}=~/./g)<code>
In reply to Re: Avoiding user-input in sub calls.
by pizza_milkshake
in thread Avoiding user-input in sub calls.
by pekkhum
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |