捕获perl中android命令的输出

Question

root @ android：/ mnt / sdcard #input 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; 
        }

我只获得“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");