in reply to Telnet in perl
$telnet->cmd() returns an array, which you are evaluating in scalar context (i.e. you're asking for the number of elements in the array).
say
@list = $telnet->cmd("hostname"); print "Host => $list[0]\n";
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}
|
|---|