Foro - Perl en Español

Hi!

Mi pregunta es si hay algún módulo en CPAN para hacer grabador de teclas o keylogger que obtenga las teclas en el momento y lo vaya guardando en un archivo. Todo esto lo busco en Win32. Probé viendo Win::API pero no sé si sirve.

Estimados, me encuentro con un problema al manipular un archivo que tiene más de 6000 líneas. Lo que necesito es leer de a pedazos de 100 líneas. Lo que hago ahora es leer línea por línea desde el comienzo del archivo con chomp() dentro de un while().

Si alguien puede ayudarme, gracias.

Hola, soy nuevo en el foro y también en Perl :)

Tengo el siguiente problema: necesito crear n cantidad de hilos y pasar los datos de un array por cada hilo. Leí la documentación de ::shared pero no lo entendí :S , esto es lo que llevo.

#!/usr/bin/perl

use strict;

use threads;
use threads::shared;
use Thread qw/async yield/;

#use Thread qw(async);

#no warnings 'threads';



my@dir : shared=qw( ...

¡¡Saludos de nuevo!!

Estoy intentando hacer funcionar esta librería que nos ayuda a evitar tener que reiniciar el servidor Apache cada vez que cambiamos una librería diseñada en mod_perl. Las instrucciones parecen ser muy sencillas; aquí las pueden ver en CPAN http://search.cpan.org/~phred/Apache-Reload-0.10/lib/Apache2/Reload.pm. Donde me metí con un poco de problemas es al intentar establecer la variable PERL5LIB la cual terminé metiendo en mi /etc/environment (estoy trabajando en una máquina con Ubuntu server 7.10) y así ...

Linux será el primer sistema operativo en ofrecer soporte para los dispositivos USB 3.0...
http://barrapunto.com/articles/09/06/09/218258.shtml

Saludos, con una molestia: ¿cómo puedo hacer para quitar <opt>, si mi etiqueta es movimientos? Dejo el código que tengo
my $xml;
my ($bc,$ag,$cuenta,$fechaope,$cod,$numdocto,$valordoc,$hhmmss,$fcierre,$concepto);
$query1->bind_columns(\$bc,\$ag,\$cuenta,\$fechaope,\$cod,\$numdocto,\$valordoc,\$hhmmss,\$fcierre,\$concepto);
while ( $query1->fetchrow_array) {
push @{$xml->{movimientos}}, {
numero => $bc,
nombre => $cuenta,
apellido => $concepto
}
}
my $xml2 = XMLout($xml,NoAttr => 1, );
print Dumper($xml2);
y me tira esto

<opt>
<movimientos>
<apellido>PAGO SAT 4019-08360634 </apellido>
<nombre>xxxxxxxx</nombre>
<numero>46</numero>
</movimientos>
<movimientos>
<apellido>PAGO SAT 4019-08541584 </apellido>
<nombre>xxxxxxxxx</nombre>
<numero>46</numero>
</movimientos>
</opt> ...

Buenas, me ha surgido una duda a la hora de realizar una de las opciones que quiero que realice el programa Perl. Seguramente sea una tontería para ustedes pero soy un perl-novato, jajaja. Os lo dejo tal cual:

Esta opción listará los usuarios que pertenecen a un grupo. Para ello le proporcionaremos un nombre de grupo o un GID. El listado incluirá el nombre del usuario que pertenece al grupo, su UID y una etiqueta ...

Buenos días,

Soy un poco bastante ignorante en esto de Perl, y el caso es que me ha llegado un problema que tengo que solucionar y creo que está relacionado con versiones Perl.

El problema es el siguiente, tengo una máquina Solaris 8; cuando intento ejecutar el script kstat me aparecen los siguientes errores:

Use of reserved word "our" is deprecated at /opt/ixos/opt/perl/lib/sun4-solaris/POSIX.pm line 3.
Can't modify subroutine entry in scalar assignment at /opt/ixos/opt/perl/lib/sun4-solaris/POSIX.pm line ...

Hi!

Mi duda es muuuuuuy básica.

No sé usar chdir() para hacer estas cosas:

Code: Seleccionar todo

C:\Documents and Settings\??\Cookies

C:\Documents and Settings\??\Configuración local\Archivos temporales de Internet

El problema radica en que quiero que se meta en esas carpetas sin conocer el nombre de usuario.

Por ejemplo, en batch sería usando %username% pero en Perl, no sé...

Hi!

Ando tratando de hacer un whois con un servicio web pero ya solo me falta que extraiga lo que yo quiero.

El code quedó así:

use LWP::UserAgent;
use HTTP::Request::Common;


$url = "http://www.who.is/whois-ip/ip-address/200.80.1.16/";
$lwp = LWP::UserAgent->new();
$lwp -> agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; en; rv:1.9.0.4) Gecko/2008102920 Firefox/3.0.4");
$request = $lwp ->get($url);


if ($request->content =~ /<br>OrgName:&nbsp;&nbsp;&nbsp;&nbsp(.*)<br>OrgTechEmail:&nbsp;&nbsp/){
print "\n\n";
print "Funciono guasonsito\n";
print $1;
print "Good bye\n";
exit 1;
} else {

print "EHHHHHHHHH\n";
my $content ...