Quiero ejecutar el siguiente script de perl (anterior.pl) dentro de código php:
- Code: 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.
- Code: Seleccionar todo
function telnetUpdateACL() {
$res = system(escapeshellcmd('anterior.pl'),$p);
return $res;
}
El fichero anterior.pl y el del código php ...