Foro - Perl en Español

Hola a todos, es mi primer tema aquí.

Soy demasiado novato en esto y necesito ayuda.

Mi problema es que al intentar hacer una clase derivada, heredo de su clase padre, intento definir las nuevas propiedades de la clase derivada y al testear el programa me tira el error "global symbol "$self" requires explicit package at "alumno.pm" at line 35.

El código de alumno es el siguiente:
#! /usr/bin/perl
package Alumno;

use Persona;
@ISA=qw(Persona); ...

Estimados:

Estoy intentando obtener con LWP::UserAgent la información retornada desde un sitio X. Utilizo wireshark para sniffear los paquetes enviados y recibidos, y necesito obtener un dato desde $res->content;, pero cuando corro mi script y leo la información entregada en $res->content, al parecer viene en binario, mientras que wireshark muestra correctamente la información:
\t<frame name="contentFrame" src="PreLogin.jsf?time=1320604789399" scrolling="auto"\r\n

De $res->content, necesito obtener el valor de time=1320604789399, pero en Perl, al correr mi script me retorna lo ...

Hola,

Tengo un txt con varias columnas separadas por tab, y una de esas columnas (la 3ª, por ej.) tiene valores repetidos. Me interesa que borre todas las filas que contengan valores repetidos según la columna 3ª, dejando un único caso de cada. ¿Qué debería utilizar?

¡Muchas gracias!

Estoy realizando un proyecto en el cual, desde Perl, realizo una conexión a LDAP. La cuestión es que necesito insertar imágenes a mi directorio de Perl. Mi duda es cómo hacerlo.

Hola, alguien podría decirme como puedo imprimir por columnas. En el código como se puede ver, tengo 4 líneas, pero en una columna debería ir la línea 0, en la segunda columna las líneas 1 y 2 y en la tercer columna la línea 3, tales líneas provienen de un archivo, para ejemplos prácticos sólo puse esas, pero la idea es que tenga tantas columnas como cambie el aid.

#!/usr/bin/perl

sub trim($);
$va="inicio";
$contacol=1; ...

Hola,

Estoy leyendo un archivo xlsx pero al leer algunas celdas aparece el siguiente carácter: Â

Ejemplo:

 14425 (del cual solo necesito el número)

¿Cómo puedo eliminar este carácter?

Gracias.

Hola. Tengo una duda sobre cómo usar los hashes, porque quiero usar un valor como una especie de array. Lo que quiero hacer es que el valor en saludos sean dos variables una llamada hola y otra llamada chau, pero el problema en el código es que solo hay espacio para uno. El código es el siguiente:

my %encontrados;

$encontrados{'saludos'} = "hola";
$encontrados{'saludos'} = "chau";

for my $data(keys %encontrados) {
print $data."\n";
print $encontrados{$data}."\n\n"; ...

¡Hola!

Bueno, el día de ayer me puse a crear una especie de chat con sockets, utilizando un servidor y un cliente y utilizarlo en localhost. El motivo de este mensaje se debe a dos cosas. Las listo:

• Que me digan cómo puedo hacer para hacerlo entre dos computadoras con diferentes IP, no en localhost como lo hago actualmente.
  
• Que me den recomendaciones de cómo se podría optimizar más el código, para programar más ...

Hola, tengo un problema con un código que estoy haciendo.

Se trata de un simple programa que detecta los listados de directorios. El problema surge cuando a partir de "for my $probar(@repetidos) {", donde trato de detectar si un directorio ya fue visto para así ignorar los repetidos en el array del mismo nombre.

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...

Hola a todos, acabo de empezar con esto del perl y estoy perdidísimo :oops:

Estoy trabajando con unas carpetas que contienen una gran cantidad de archivos (guardados en diferentes carpetas y a diferentes niveles) y necesitaría crear algún programa que fuese capaz de acceder a esos archivos, capturar la información que tienen y copiarlo a otro archivo.

Me explico:

/home/usuario/documentos/

Ahí tengo varios directorios: dir1, dir2, dir3... ...