Foro - Perl en Español

¿Qué tal? Pues mi problema es que mi profesor nos dejó explicar cada línea en forma de comentario, de 2 códigos en Perl y pues no sé nada acerca de programación en Perl y quisiera que me ayudaran en esto... por favor.... No sé si ésta sea la categoría idónea para hacer esta pregunta...

Por lo que nos mencionó, los códigos hacen la función de socket en cliente y servidor...

--cliente
#!/usr/bin/perl -w
# ...

Bueno, tengo dos duda sobre Expresiones Regulares, la primera es que necesito un buen concepto sobre esta función, sé cómo más o menos funciona pero sin un concepto concreto no lo domino mucho xD.

(?:....)

Y

Hola.


Ando teniendo una duda porque quiero codificar un archivo con palabras a codificación md5 por cada palabra, pero cuando los codifico se ven diferentes que si hubiese codificado una sola palabra a md5 sin usar archivo de texto.

¿Alguien me podría explicar por qué sucede eso y cómo lo arreglo?

Hola.

Ando teniendo un problema porque quería extraer las variables de un formulario web y no sé cómo.

Pues estoy usando WWW::Mechanize y tengo ya el siguiente código.

$web = "http://127.0.0.1/libro.php";
my $mech = WWW::Mechanize->new();
$mech->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
$mech->get($web);
my $rta = $mech->dump_forms($fh);


Devuelve

POST http://127.0.0.1/libro.php
html= (text)
venga=Enviar (submit)


Este código me extrae toda la información sobre el formulario desde variables hasta otros datos ...

Tengo el siguiente problema... (no de código, sino de funcionalidad del código que estoy generando)

Se tiene:
package Datos::Operaciones::Naturales;
use strict;
sub new{}
sub sumar{}
sub restar{}
sub dividir{}
sub multiplicar{}
1;

Por otra parte, para obtener estos datos, suma, resta, etc, utilizo lo siguiente...

package Reporte::Mostrar;
use strict;
# Aquí es donde comienza mi duda...
use Datos::Operaciones::Naturales;
sub new{}
sub Mostrar_Suma{
# Y hago la llamada así
Datos::Operaciones::Naturales::sumar();
}

Ahora bien, todo ...

Quería saber a través de algún ejemplo, cómo poder sobrecargar un constructor...
package Consulta;

sub new{
my($class,$dato)=@_;
my $self = {
dato=> $dato
};
bless $self,$class;
return $self;
}


sub new{
my($class,$referencia_dato)=@_;
my $self = {
dato=> $referencia_dato
};
bless $self,$class;
return $self;
}

sub operaciones{}...

package Main

....
my $variable = new Consulta("hola");
....
my $variable = new Consulta(\@un_arreglo);
...

¿Cómo el constructor de la clase Consulta sabrá a cuál entrar...? ¿O en ...

Bueno, es una tontería básica pero estoy empezando con perl y hacía tiempo que no programaba. A ver si me podéis echar una mano.

Tengo este fichero que es una prueba que estoy haciendo. En el fichero entrada tengo varias líneas separadas por ";" y que con la función split las voy guardando en variables para luego en el fichero salida mostrar las que me interesen. La cosa es que con este código me lo ...

Buenas, necesito hacerle una petición GET a una redirección, o sea, hago esto:

Hago una petición GET
Luego me redirige

Y a la redirección le quiero hacer la petición GET, el estatus HTTP es 302 -> que es el de redirección...

Buenas, quisiera saber cómo capturar o imprimir las respuesta HTTP del servidor web.

Hola:

Quiero crear una interfaz gráfica con curses y he visto que existe el módulo Curses::UI.

Esto funciona (crea un 'navegador´ para elegir un archivo):
use Curses::UI;
my $cui = Curses::UI->new();
my $file = $cui->loadfilebrowser();

if (defined $file) {
$cui->dialog("you selected $file");
}

y esto me saca un calendario:

my $date = $cui->calendardialog();

if ( defined $date ) {
$cui->dialog("you selected $date");
}


Me interesaría también sacar una caja en la que ...