在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");