Using perl Syntax Highlighting
#!usr/bin/perl
use Net::Telnet();
$t =new Net::Telnet();
$user="lenguajes";
$pass="lenguajes123";
$t->open("200.6.192.83");
$t->waitfor("/login/");
$t->printf($user);
$t->waitfor("/password/");
$t->printf($pass);
$t-> print ("su -");
$t-> waitfor ("/password/");
$t-> print ("lenguajes123");
$t-> waitfor ("/#/");
@line=$t->cmd("history");
use Net::Telnet();
$t =new Net::Telnet();
$user="lenguajes";
$pass="lenguajes123";
$t->open("200.6.192.83");
$t->waitfor("/login/");
$t->printf($user);
$t->waitfor("/password/");
$t->printf($pass);
$t-> print ("su -");
$t-> waitfor ("/password/");
$t-> print ("lenguajes123");
$t-> waitfor ("/#/");
@line=$t->cmd("history");
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
y el error es este:
- Código: Seleccionar todo
salva@linux-1l91:~> perl /proyecto/historial.pl
pattern match timed-out at /proyecto/historial.pl line 9
Si pudieras ayudarme, muchas gracias.