在perl中捕獲android命令的輸出

Question

root @ android：/ mnt / sdcard＃輸入keyevent 66我正在android提示符下運行perl腳本。 想知道我如何捕獲到perl變量的android命令的輸出。 我已完成以下操作，但未捕獲輸出。 請幫忙。

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; 
        }

我僅收到“ root @ android：/ mnt / sdcard＃input 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");