Quiero ejecutar el siguiente script de perl (anterior.pl) dentro de código php:
- Código: Seleccionar todo
#!/usr/bin/perl
use Net::Telnet ();
$username = 'x';
$passwd = 'xy;
$t = new Net::Telnet (Timeout => 60);
$t->open("ip");
$t->login($username, $passwd);
@lines = $t->cmd(fichero.pl");
print @lines;
exit;
Dentro del código php tengo la siguiente función para ejecutarlo pero no se cómo utilizar la función ni nada.
- Código: Seleccionar todo
function telnetUpdateACL() {
$res = system(escapeshellcmd('anterior.pl'),$p);
return $res;
}
El fichero anterior.pl y el del código php se encuentran en la misma máquina, y el fichero fichero.pl se encuentran en otra máquina que es a la que se hace el telnet y de la que es la ip que aparece en el fichero anterior.pl.
No tengo mucha idea, de trabajar con varias máquinas, asi que espero que podais ayudarme. Muchas gracias y un saludo
