[英]capture the output of android command in perl
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”,而收到此命令后没有显示消息。请帮忙。
那应该是
$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");
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.