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

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 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, soy nuevo en Perl y Linux, he programado con C/C++ bajo Windows.

Desde mi código en C++ puedo crear, abrir, leer imprimir un documento de Office utilizando OLE.

Mis preguntas. ¿Se puede hacer esto con Perl y Open Office bajo Linux?
¿Cómo? ¿Dónde conseguir documentación y tutoriales?

Gracias de antemano.

Hola.

Necesito transformar la función
my @loc2_cadena = split //, $cadena;
en un bucle donde pueda hacer print()... entre medio... de esta manera aunque sea muyyyy larga la cadena, el explorador no me da error de timeout por no escribir nada en la pantalla (el típico mensaje de Loading...).

Seguro que hay una manera muy fácil pero yo estoy un poco espesa... :?

Hola de nuevo. He hecho una prueba con las variables y no entiendo lo que pasa. Primero con la función localtime():
$a=localtime();
print $a;

($b)=localtime();
print $b;
$a, he leído por ahí que devuelve el nº de segundos desde 1970, aunque aquí coge la fecha, pero $b cada vez devuelve una cosa distinta.

¿Y en este otro?
@vec=(7,8,9)
$c=@vec
print $c
($d)=@vec
print $d;
$c recoge el nº de elementos del vector ¿pero ...

Buenos días amigo. ¿Alguien me podría ayudar? Lo que quiero es que lo seleccionado en el primer combo se cargue en otro combo. Ejemplo:

Primer combo, tengo:

Computadora
Redes

Si yo selecciono computador me debería de mostrar en el segundo combo:

Cable malo
Teclado malo
etc

Mi código del segundo combo es este y el select del sql está bueno. Otra cosa. El primer combo también carga bien.
( $mun, $dep, $template, $driver, $usuario1, ...

He leído vuestro tutorial sobre hash y es buenísimo, pero al imprimir una lista salen todos los elementos juntos sin espacios. Por ejemplo, aquí:
%coches = (1, opel, 2, mercedes, 3, fiat, 4, renault, 5, seat);
print "Lista de coches : ";
foreach $coche ( values %coches ) {
print "$coche ";
}
¿Cómo se pueden imprimir con espacio, pero sin que se lo tenga que poner yo?