захватить вывод команды android в perl

Question

root @ android:/mnt/sdcard # input keyevent 66 Я запускаю скрипт perl в командной строке Android. Хотелось узнать, как я могу захватить вывод команды 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; 
     } 

Я "получает только„корень @ андроид.:/Шоссе/SDCard # входа 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");