Foro - Perl en Español

Aunque Perl es suficiente para resolver prácticamente todos problemas diarios, eso no quita para que podamos aprender otros lenguajes que nos pueden resultar útiles, como el Bash Shell o el awk (que es aún más sencillo que Perl).

Si os enseñan Perl es con la finalidad de que uséis más adelante el paquete de módulos BioPerl, que es el que se usa a nivel profesional.

Y si no quieres aprender otros lenguajes, sí que merece, y mucho, la pena, aprender teoría informática (algoritmos, estructuras de datos...)

En cuanto a las preguntas,
1.- No, no lo sabe. Es el bucle for() el que le va dando los números

2.- Es una estructura básica de control de flujo, presente en casi todos los lenguajes informáticos. Más información -en tu propio ordenador- en perldoc perlsyn (Web) (traducido), en la sección Bucles for.

3.- Pues sí, porque un for() es un while() al que se le ha añadido una variable que hace de contador

Ahora que creía que ya lo tenía todo incluso el diagrama de flujo, llega el profesor y nos dice que lo hagamos con while() e if(), sin usar el for() ya que no lo ha explicado aun. Este es mi código del ejercicio, hasta la ordenación es igual. Debo tener algún error que no identifico pues el programa entra en un bucle al ejecutarlo:

El error del bucle ya lo he encontrado. Era simplemente un corchete mal puesto pero el programa solo me ordena los dos primeros números. ¿Cómo consigo que me los ordene todos? He cambiado respecto al anterior mensaje el último corchete de sitio detrás del último $temp.

El método de la burbuja se basa en un doble bucle que vaya recorriendo todos los elementos, para hacer las comparaciones de todos los elementos consigo mismos. Pero en tu segundo bucle no haces eso... solo estás recorriendo los elementos mientras cumplan la condición de que uno sea menor que el otro. Se parará en el primer caso que falle, y entonces no seguirá comparando...

En la página de la Wikipedia lo tienes descrito mejor.

Si en mi segundo bucle se para al fallar la condición, ¿cómo hago que en caso de que no se cumpla siga comparando?

Las únicas condiciones de parada de los bucles deben ser la que marcan sus contadores, que recorren los elementos de la lista. No hay más condiciones que comprobar si el contador ha llegado al último elemento de la lista. No hay que poner otra condición, salvo que uses la variante del centinela.

Enséñanos cómo va tu código...

No he avanzado respecto al último código que puse pues estuve haciendo el ejercicio del tema de bioinformática. Bueno, sí que he hecho un cambio: He borrado el penúltimo print() pues no sirve para nada.

print "Introduzca la cantidad de números a ordenar: ";
$a = <STDIN>;
chomp($a);
while ( $a <= 0 ) {
print "Introduzca un número mayor de 0:";
$a = <STDIN>;
chomp($a);
}
if ( $a > 0 ) {
$n = 0;
while ( $n < $a ) {
print "Introduzca los números: ";
$b = <STDIN>;
chomp($b);
push @numeros, $b;
$n++;
}
}
$c = 0;
$d = $c + 1;
while ( $c < $a ) {
while ( $numeros[$c] > $numeros[$d] ) {
$temp = $numeros[$c];
$numeros[$c] = $numeros[$d];
$numeros[$d] = $temp;
}
$c++;
}
print "Los números ordenados son: @numeros\n";

Estoy muy atascado y no sé cómo seguir :S

Veo el error del segundo bucle como me indicaste pero no la solución ¡je,je!

Tan sencillo como copiar y adaptar el código que aparece en la página de la Wikipedia...

He intentado adaptarlo y tengo esto:

print "Introduzca la cantidad de números a ordenar: ";
$a = <STDIN>;
chomp ($a);
while ($a<=0) {print "Introduzca un número mayor de 0:";
$a = <STDIN>;
chomp ($a);
}
if ($a>0) {
$n = 0;
while ($n<$a) {print "Introduzca los números: ";
$b = <STDIN>;
chomp ($b);
push @numeros, $b;
$n ++; }
}
$c = 1;
$d = 0;
while ($c<$a) {
while ($d<($a-$c)) {
if ($numeros[$d]>$numeros[$d+1]) {
$temp=$numeros[$d];
$numeros[$d]=$numeros[$d+1];
$numeros[$d+1]=$temp;}
$d++;}}
print "Los números ordenados son: @numeros\n";

Lo extraño es que así al ejecutarlo no me devuelve los números, el programa no me muestra nada, pero si, por ejemplo, pongo uno de los últimos dos corchetes detrás del print() me devuelve los números ordenados infinitas veces. Es normal pues está dentro del bucle pero el caso es que están ordenados, aunque si no coloco el corchete ahí no me devuelve nada. Creo que casi lo tengo pero sigue fallando algo.

He hecho una pequeña corrección que mejora el programa pero ahora me doy cuenta de que me ordena a medias. El programa es este:



El fallo es que al intercambiar dos números, sigue donde lo dejo y no vuelve a empezar. ¿Qué tengo que cambiar o añadir para que lo haga?