Foro - Perl en Español

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

Os presento mi nueva web. La he llamado CRR (Control Remoto de Robots).
En ella explico cómo acceder a través del puerto paralelo a dispositivos robotizados, mediante CGI's programados en Perl.

Imagino que a los que sois programadores experimentados, mi código os puede hacer sonreir, pero no soy ningún experto en esto y lo que aquí muestro, funciona.
Estoy abierto a ideas.

Espero que os guste.
www.sebyc.com/crr

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

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.

Dentro de mi programa tenía un if() con la siguiente expresión:

if( $var1 eq $var2) { .... }

$var1 y $var2 sólo podían contener 'A', 'T', 'C' o 'G'. O sea, que así perfecto...

Pero ahora he tenido que introducir un cambio: una de las dos variables, por ejemplo $var1 puede contener caracteres comodín, representados por la letra 'N'. Esto significa que si en $var1 encuentro una 'N', siempre tendría que dar cierto (en ese ...

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,

lo primero presentarme, que soy nuevo por aquí.

No consigo encontrar la manera de reemplazar código ANSI desde perl, bueno, en realidad quiero eliminar todas las referencias ANSI que tengo dentro de un fichero de texto.

No se si alguien me puede ayudar, que me estoy volviendo loco de buscar la solución.

Muchas gracias

:shock: Hola queridos hermanos Programadores. Como he publicado en otras ocasiones estoy trabajando en un proyecto grande con perl y la libreria tk para una aplicación multiplataforma, pero ayer cuando necesitaba crear un explorador de proyecto en forma de árbol similar al de Dreamweaver para sus sitios, surgió la necesidad de utilizar la recursividad para construir el árbol partiendo de un directorio raíz (ejemplo: "C:", "USR") pero el lenguaje no me respondió. Por ello fuí ...