Foro - Perl en Español

Buenos días, por favor, necesito que alguien me colabore con mi script SNMP::PERL. Vi ejemplos y demás. Hice de la misma manera y todo pero me sale error de que el equipo no responde, mi duda es cómo y dónde debo ingresar los valores (Read Community y Write Community) para hacer la consulta SNMP, por favor.

Ja, como regalo de navidad les dejo el script navideño xDDD.

El código


#!usr/bin/perl
#El script navideño
#Coded By Doddy H

while(true) {

my($dia,$mes,$anio,$hora,$minutos,$segundos) = agarrate_la_hora();

unless($dia eq "25" and $mes eq "12") {
syswrite STDOUT," Fecha y hora : $dia/$mes/$anio $hora:$minutos:$segundos \r";
} else {
syswrite STDOUT,"\n\n Feliz navidad !";
<stdin>;
exit(1);
}

}

sub agarrate_la_hora {

my ($a,$b,$c,$d,$e,$f,$g,$h,$i) = localtime(time);

$f+= 1900;
$e++;

return($d,$e,$f,$c,$b,$a);

}

#The End ?

Hola,

El asunto es un poco extenso pero no sabia como llamar al problema.

¡Os explico!

Tengo un script en Perl que ejecuta mediante el comando qx() un programa en Java.
Este programa en stdout la solución.

Bien, pues este script ejecutado por terminal, funciona correctamente (muestra los datos bien).
Ejecutado como www-data en el terminal también funciona bien, pero desde el browser, las letras con tilde las transforma a '??'.

Os pongo parte del ...

¡Hola a todos!

Hace poco comencé en el mundo de Perl con Ubuntu. He realizado un script y me encuentro con la inquietud de saber si es posible convertirlo en un archivo binario.

Saludos,


Ricardo

Hola. Tengo que hacer un ejercicio que consiste en buscar la subcadena "la" y devolver las dos líneas anteriores y las dos posteriores de un texto.

Yo tengo algo como sigue:

my @solucion = ($cadena =~ m/(.*\n.*\n).*la.*\n(.*\n.*)/g);

Lo aplico al texto siguiente que se lee de un fichero y almaceno en $cadena:

hola este texto
es una prueba para el segundo
ejercicio de entrega
de expresiones regulares
en el que tenemos que encontrar
alguna ...

Buenas,

Aunque es sobre el mismo script, he cerrado el hilo sobre la cuestión del nombre de clases y archivos correspondientes, porque esto ya es otro tema.

Estoy usando Net::OpenSSH para tratar de abrir una conexión a una máquina y ejecutar algunos comandos de forma remota. Para empezar he hecho una cosa muy sencillita a modo de prueba y resulta que ésto me funciona:
#!/soft/perl-5.10.1/bin/perl
#use Net::OpenSSH;
use strict;

my $host = "server";
my ...

Tengo el siguiente problema, tengo varios datos, como por ejemplo:

Nombre Año Sexo Dirección Ciudad

Juan Tapia 1980 VAR Siena Los Angeles
Miguel Ruiz 1970 VAR (No Tiene) Los Angeles

Como ven en la fila número 2, el campo de dirección queda en blanco, al usar mi código en perl y pasarlo a un cvs, queda de la siguiente manera.

Nombre Año Sexo Direccion Ciudad

Juan Tapia 1980 VAR Siena Los Ángeles
Miguel Ruiz 1970 ...

Hola, soy nuevo usando Perl. Tengo una duda y estoy seguro que es algo muy simple y un poco de ayuda no me hace mal. ¿Cómo puedo hacer que el código de salida de un script Perl (exit = 1) lo interprete otro script Perl para ejecutar una acción determinada.

Gracias de ante mano.

Jorge

Buenas tardes, tengo un problema con MRTG que no logro resolver.

Aparentemente todo se crea bien pero los datos no se actualizan, “parece uno relacionado con el cron”.

Les dejo como lo he configurado. Realicé los siguientes pasos:

Se ha instalado mrtg, mrtg-contrib, mrtgutils, rrdtool, rrdtool librrds-perl y snmp en una plataforma de Linux(Debian) que está dentro de una VMWare Player y ésto está dentro de un PC.

Luego se han realizado los siguientes pasos: ...

Hola a todos
XRumer 7.0.12 llegar a ser demasiado viejo
Esta versión del programa no es eficaz en el momento :(

¿Dónde puedo descargar la versión más reciente , real de XRumer?
¡Gracias!

P.S Por cierto , el precio de la XRumer después de 01/05/2013 crecerá hasta $ 650 ...
Por lo tanto , si alguien quiere vender este , escribeme a PM o Skype Mr.Marcustek39