I'm running a perl script on android prompt. Wanted to know how do i capture output of a android command to a perl variable. I've done the following, but output is not captured. Please help.
use Net::Telnet;
$ip='xx.xxx.xx.xx';
$ip_port='10009';
$port = Net::Telnet->new( Host=>$ip,Port=>$ip_port,Dump_log=> "dump.l
+og");
@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 getting only "root@android:/mnt/sdcard # input keyevent 66" only and not the messages displayed after i enter this command. Please help.