Foro - Perl en Español

Hola a todos, de nuevo.

Una duda de novato (y creo que de muy novato, ¡ja,ja,ja!), tengo una base de datos en MySQL, esta tiene tres tablas, relacionadas con un id único.

Ahora quiero consultar la tabla1, y por cada elemento de ella que esté en tabla2 y tabla3 quiero que los muestre.

Creo una conexión a tabla1, 2 y 3. Con while() me recorro toda la tabla1 y con otros while() dentro del primer ...

Muy buenas a todos, estoy intentando validar un polinomio que puede tener dos estructuras:
y=x3+25x+3 o y=6x3-6x2+5x

Lo he intentado así:
if ( $pol =~ /^{1}{1}{1}{1}{1}{1, }{1}{1}{1, }$/
|| $pol =~ /^{1}{1}{1, }{1}{1}{1}{1, }{1}{1}{1, }{1}$/ ) {
print "Polinomio válido";
}
else {
print "Polinomio no válido";
}
pero al hacer la prueba con un polinomio válido no entra. ¿Por qué?

¿Que tal panas? ¿Alguien me puede ayudar a conseguir una función para adjuntar documentos? Estoy desarrollando un sistema de control de documentos en Perl y necesito subir los archivos desde el cliente al servidor con una función parecida a la de los correos electrónicos... Cualquier información, avísenme .... Muchas Gracias....

Buenas, hace ya tiempo que estoy luchando desde una Debian para hacer una pequeña practica en Perl. Uso la versión 5.8.8 sobre Debian.

El problema que tengo es que al llegar a esta instrucción:
my ($line) = $_;
chomp($line);

for ( $i = 1; $i <= 3; $i++ ) {
print $line . sprintf( "%02d", $i ) . "\n";
}
Con un fichero que contiene:
lluis
anton
En lugar de imprimir
lluis01
lluis02
lluis03 ...

Hola gente!
Como puedo saber el tiempo que me toma bajar un archivo por Sockets?
Es decir, como lwp-download que te imprime el tiempo promedio que tomara descarquarse X archivo, pero por Sockets (Ya tengo media interfase http hecha, pero nesecito esto)
Gracias.

Hola todos:

He escrito un nuevo tutorial que habla un poco acerca de Ajax y muestra con un ejemplo sencillo como poder usar ésta tecnología con Perl de manera sencilla usando el módulo CGI::Ajax

El tutorial lo pueden encontrar en la siguiente dirección:
http://perlenespanol.com/archives-tut/000167.html

También les comento que en algunos días publicaré un tutorial acerca de como crear un chat usando Perl y Ajax. El chat ya lo tengo ...

Hola a todos, ¿hay alguna manera de recorrer este vector con alguna estructura repetitiva, pero sin utilizar variables auxiliares?
@elementos = ( "coche", "bici", "moto", "camión", "avión", "cama", "boligrafo", "goma", "papel", "moneda" );

sub recorre {
foreach $elem (@elementos) {
print $elem;
}
}
&recorre;

Hola allá, primero que todo me gustaría felicitar a los creadores y usuarios de este magnífico foro pues se puede encontrar material de muy alta calidad además de un ambiente muy, muy amistoso. Como se puede apreciar es mi primer mensaje, pero visito este sitio hace unos meses y nunca me había surgido la necesidad de mandar alguna duda.

Planteo la escena de mi problema:

He desarrollado un algoritmo de cifrado personal para proteger conversaciones ...

Hola a todos, estoy intentando hacer el susodicho algoritmo pero no hay forma,
sub mcd {
$n=$_;
$n1=$_;
while (($_ % $_) != 0) {
$c=$_;
$_ = $_ % $_;
$_=$c;
}
print "El mcd ($n , $n1) = $_ \n";
}
sub mcm {
$n=$_;
$n1=$_;
$mcm= ($_ * $_) / mcd($_,$_);
print "El mcm ($n , $n1) = $mcm ";
}

&mcd(945,651);
&mcm(945,651);
¿Dónde está el fallo? Según mi editor de ...

Saludos a todos, es la primera vez que escribo aquí...

Bueno tengo un problema, tengo como proyecto final de sistemas operativos 1, leer un bitmap, mostrar su fileheader, su infoheader, su paleta de colores, e invertir a escala de grises la imagen en el caso de imágenes de 24 bits, no sé perl, nunca lo había usado, apenas estoy aprendiendo algunas cosas, ya tengo las 2 primeras, que no fue tan complicado, excepto por que ...