在perl中捕获android命令的输出

Question

root @ android：/ mnt/sdcard＃输入keyevent 66我在android提示符下运行一个perl脚本。想知道如何捕获android命令的输出到perl变量。我已经完成了以下操作，但输出未被捕获。请帮忙。

use Net::Telnet; 
$ip='xx.xxx.xx.xx'; 
$ip_port='10009'; 
$port = Net::Telnet->new(Host=>$ip,Port=>$ip_port,Dump_log=> "dump.log"); 

@lnes= $port->cmd("input keyevent 66"); 
     sleep(5); 
     $lc=0; 
     print "Console Log:"; 
     while($lc<5) 
     { 
      print $lnes[$lc]; 
      print FILE $lnes[$lc]; 
      ++$lc; 
     } 

I“m如果只有 ”根@机器人：到/ mnt/SD卡＃输入的keyEvent 66“，而不是我输入此命令后，显示的信息请帮

Answer 1

这应该是

。

$port = new Net::Telnet(Host => $ip, Port => $ip_port, Dump_log => "dump.log"); 

，或最好

$port = Net::Telnet->new(Host => $ip, Port => $ip_port, Dump_log => "dump.log");