Foro - Perl en Español

Tengo el siguiente código.

use Win32::API;

my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");

while(1) {

if (dame(0x10)) {
print "shift\n";
$shift = 1;
} else {
$shift = 0;
}

if(dame(0x31)) {
if($shift eq "1") {
print "!\n";
} else {
print "1\n";
}
}

}#

sub dame {
return($come->Call(@_) & 1);
}

sub savefile {
print $_."\n";
}


La idea es reconocer cuando alguien quiere hacer "!" pero el problema es que ...

Hace tiempo que queria hacer un programa parecido al famoso juego Hackthegame , intente hacer un programa con un diseño parecido y algunas de sus funciones.
Las opciones que el programa tiene son :

Gmail Inbox
Client Whois
Ping
Downloader
GetIP
LocateIP
K0bra SQLI Scanner
GetPass
PanelControl
PortScanner
Multi Cracker
Ejecucion de comandos en la consola

Una imagen



Los modulos que necesita ...

¿ Existe algún módulo de Perl para poder abrir archivos zip o rar que tengan password ?

Tengo el siguiente código:
#!C:/xampp/perl/bin/perl.exe
print "content-type: text/html \n\n";
print <<EOF;
<img src="moto.jpg" />
EOF

pero al ejecutarlo no carga la imagen, pero si lo pongo en una página HTML normal:
<img src="moto.jpg" />
carga perfectamente. También intenté cambiar la URL de la imagen, como por ejemplo:

"C:/xampp/cgi-bin/DarkDragon/moto.jpg"
"C:/moto.jpg"
"localhost/cgi-bin/DarkDragon/moto.jpg"
"DarkDragon/moto.jpg"
"../../../moto.jpg"
"/moto.jpg"
"cgi-bin/moto.jpg"

pero con ninguna carga la imagen :?

¡Hola! :)

Estoy aprendiendo Perl y quiero saber si puedo evaluar una variable como se hace en Cobol. Ejemplo:

EVALUATE X
WHEN 0
CONDICION 1
WHEN 1
CONDICION 2
WHEN 2
CONDICION 3
WHEN OTHER
CONDICION 4
END-EVALUATE;

Les agradezco si me pueden ayudar, este es el único medio por el cual estoy aprendiendo Perl.

Att: Chascarrilla

¿ Qué carrera conviene más para alguien que solo le gusta la programación ?

Buenas tardes. Les comento: tengo un inconveniente algo crítico con el manejo de certificado SSL cuando quiero enviar una mensaje en XML. Me explico:

Tengo una petición (mensaje en XML) a un servidor remoto que quiero enviar a través de PHP pero codificado con SSL, el cual también debe de regresar a mi servidor de manera XML.

¡No sé cómo lograr esto! ¡Soy algo nuevo para este nivel de programación y quería ver si alguien ...

¿Qué tal? Solicitando nuevamente de su ayuda.

Tengo un archivo xlsx el cual lo quiero pasar a txt. Cuando leo el archivo xlsx obtengo el valor de las celdas que me interesan. El problema surge al leer celdas que contienen fórmulas o cantidades fijas. Obtengo un cero y lo que me interesa es extraer el valor de esa celda.

¿Cómo puedo hacer, para que en lugar de 0, me mande realmente el valor que contiene ...

«Usando modulo el cpan PDF::Report de perl para generar pdf, si usan Debian, Canaima o algún derivado debería bastar con:

#aptitude install libpdf-report-perl

Para probar el script crean un archivo con extensión .pl y copian el código.»

Artículo

¡Hola! Quiero crear una página con usuarios y quisiera saber si me pueden pasar una página para poder descargar un módulo para crearlas y mejor si me pueden explicar cómo se usa. ¡Gracias!

Es que ya vi el tutorial de cómo crear Cookies de esta página pero me sale el siguiente error:
malformed header from script. Bad header=domain = http://www.mevolucion.com; : start.pl

Este es el módulo de la cookie ...