Foro - Perl en Español

Hola a todos, estoy teniendo un pequeño problema tratando de acceder a una tabla hash.

Bueno, aquí van las preguntas:

1- ¿Puedo almacenar un hash dentro de un arreglo?
2- En caso de que sí, ¿accedo de la misma forma como si fuera un arreglo normal y un hash normal?

Aquí está parte del código que estoy utilizando:
sub creaDiccionario
{
$punteroActual = 0;
#terminosGeneral es un hash con llave->palabra y valor->IDPalabra
foreach $palabra (sort ...

Muy buenas a todos,

Tengo una consulta básica sobre IO::Socket, mandé por equivocación un mensaje hace poco sobre esta consulta por error al Foro Experto, por lo cual pido disculpas ya que tuve que haberlo publicado aquí en Básico...

He estado intentando un script que sea capaz de enviar mensajes a uno o varios clientes previamente conectados a un servidor; he tomado prestado de este mismo foro los códigos con los cuales estoy probando y ...

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í ...

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é...