Foro - Perl en Español

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

Buenas tardes a todos/as,

Estoy interesado en contactar con un programador en perl, para que me haga un presupuesto para un gestor de base de datos con ficheros ASCII.

Si hay algún interesado/a, puede contactar conmigo para más info en [email protected]

Saludos cordiales,

Jaime

Tengo una variable con el nombre del módulo que quiero usar, debería de ser algo así...

use $modulo;
$modulo->cargar()

Todos los módulos que puede tener $modulo tienen la función cargar...

Lo pruebo y no funca y la verdad no tengo idea de para donde salir corriendo...

Saludos