capturar la salida del comando android en perl

root@android:/mnt/sdcard # input keyevent 66I'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.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; 
        }

I"m getting only "root@android:/mnt/sdcard # input keyevent 66" only and not the messages displayed after i enter this command. Please help.

preguntado el 27 de noviembre de 13 a las 07:11

como es $port ¿creado? -

that cannot be the entire script -

I"ve edited to add port definition. -

¿Qué sucede si usa el telnet utility to that address/port, and enter the same command? -

1 Respuestas

Eso debería ser

$port = new Net::Telnet(Host => $ip, Port => $ip_port, Dump_log => "dump.log");

o, preferiblemente

$port = Net::Telnet->new(Host => $ip, Port => $ip_port, Dump_log => "dump.log");

respondido 27 nov., 13:08

Ok i've changed it to second one you have suggested. But it was working with the command i've given. Now, how do i solve the original issue? - Sharath

No es la respuesta que estás buscando? Examinar otras preguntas etiquetadas or haz tu propia pregunta.