Foro - Perl en Español

Estimado Explorer , :lol:

Necesito saber cómo puedo enviar dentro de un script en Perl el carácter de "Y" a un switch Huawei para grabar la configuración luego que ejecuto el comando "save" .

Te detallo la sintaxis del comando dentro del equipo:

<SWITCH>save
The configuration will be written to the device.
Are you sure?[Y/N]Y
Now saving current configuration to the device.
Saving configuration. Please wait...
...... ...

Tengo un script que se conecta a la página de voipbuster.com con mi usuario y clave de acceso. Todo va bien. Lo que hago luego es bajarme la página a un archivo temporal y la proceso buscando información que me interesa.

¿Y qué me interesa? pues saber el estado de la cuenta, claro. En el código HTML está así:

Remaining credit:<br>
<span id="balanceid"><b>&euro;&nbsp;10.00</b></span>&nbsp;<span class="buy">(<a href="buy_credit.php" class="buy">buy more</a></sp
an>)

El código que uso es éste (la ...

Saludos a todos, la pregunta es la siguiente:

Quería saber cuál es la forma más rápida y sencilla de almacenar simplemente en un archivo los datos (user y password) extraídos de un formulario web.

Ej.: Tengo 2 campos, uno input type=text y otro input type=password y quiero que al darle submit simplemente se guarden en un archivo que crearía ese mismo script; ¿cuál es la forma más rápida y fácil?

Creo que por error borré un archivo en Linux... (equipo Solaris) ¿algún comando para ver la papelera de reciclaje? ( :?: ) si es que existe algo así... ¿¿ideas?? ¿¿cómo recuperar con algún comando??

¡Hola!

Tengo poco tiempo tratando de aprender Perl... es muy completo... y ahora necesito saber cómo conectarme al LDAP a través de Perl...

Necesito orientación... por donde le busco....o qué se tiene que hacer... y es que lo que he buscado me dicen que necesito algunos módulos como el Net::LDAP... pero no sé dónde bajarlo... o en qué ruta...

Espero me puedan asesorar... porque ando muy perdida...

¡¡¡¡Saludos!!!!

Cuando usas open perl retorna el error (si hay uno) con $! (o con $^E).

Yo quiero hacer algo similar:

package MyModulo;
use strict;

sub funcion {
my ( $a, $b ) = @_;
if ( $a ne "algo" ) {
return ERROR ? #no se que poner aquí
}
else { ... }
}

1;

y el cliente:
use MyModulo;
my $algo = MyModulo->funcion(1, "a") or die "$!\n";

perlvar no me ha dicho mucho... ...

Buenas, les molesto para consultarles si alguien está usando algún script para parsear la configuración de un equipo Cisco Pix, como será para ver el hostname, las ACL, los grupos y demás.

Gracias.

Hola compañeros...

¿Cómo puedo comparar si la hora actual hora está dentro de un rango?

El ejemplo sería:

Code: Seleccionar todo

HorarioAtencionInicial = 09:00
HorarioAtencionFinal = 18:00

Entonces, necesito saber si la hora que ejecuto el script entra en ese rango de horario.

Sería:

Code: Seleccionar todo

Si (HorarioAControlar >= HorarioAtencionInicial y
     HorarioAControlar <= HorarioAtencionFinal)
     
     return VERDADERO
SINO
     return FALSO
FIN-SI

Desde ya muchas gracias.

Saludos.

Yo de nuevo, muchas gracias por la ayuda.

Pero tengo el mismo problema de nuevo. Tengo otro programa que tampoco entiendo, de forma muy general lo que hace es asociar a cada pixel de la imagen una coordenada celeste, que consta de una posición en grados minutos y segundos, más una declinación.

Tiene muchos comentarios que no sé si sacar o no.

El programa funciona, pero no sé qué es lo que hace.

¿Por favor ...

Hola, la verdad tengo una duda. Soy muy nuevo en Perl pero necesito saber cómo puedo hacer que si tengo un string, por ejemplo: aaaaasssdrrrtttttcccc pueda intercambiar las letras t por letras u.

Y mi otra duda es saber cómo puedo convertir las minúsculas en mayúsculas.

¡¡¡Si me pueden ayudar con eso se los agradecería mucho!!!!