Foro - Perl en Español

Hola foreros de Perl Es mi primer tema creado y llevo muy poco tiempo con Perl así que soy un novato de primero.

Tengo que hacer un ejercicio y no sé cómo :S Es el siguiente:

«Desarrollar un programa que nos permita introducir una sucesión de números en un "array", para posteriormente ordenarlos de menor a mayor y visualizarlos en la pantalla. Utilizar exclusivamente estructuras de control y no funciones predefinidas como sort.»

Por si acaso no queda claro, si ejecuto el programa debe preguntarme la cantidad de números a introducir, por ejemplo: 5. Cuando le he dicho 5, me preguntará cuales son los números, por ejemplo: 2, -174, 35, 28 y 9. Finalmente el programa los introducirá en un array y sin usar funciones predefinidas como sort() devolverá dichos números ordenados.

¡Muchas gracias por vuestra ayuda!

Pues de momento solo tengo la primera parte :S

print "Introduzca la cantidad de numeros a ordenar: ";
$a = <STDIN>;
chomp ($a);
while ($a<=0) {print "Introduzca un numero mayor de 0:";
$a = <STDIN>;
chomp ($a);
}
No sé si es el mejor planteamiento pero es lo que se me ha ocurrido. Para cuando se introduzca la cantidad de números se me ha ocurrido hacer un contador que empiece en 0 y que me pida números en un bucle hasta que el contador llegue al valor de $a pero no me ha funcionado bien.

He probado para seguir con esto, pero no me funciona :S
$n = 0;
while ($a>0) {
print "Introduzca un numero: ";
$b = <STDIN>;
chomp ($b);
$n++;
until ($n=$a);
}

Muchas gracias por la ayuda. Voy progresando, además no me lo dais hecho y me hacéis pensar un poco y eso está bien porque mi profesor no es muy bueno :S

Por el momento tengo esto, aunque no sé cómo introducir unos números procedentes del STDIN en el array. He usado push() pero por lo que veo solo me introduce el último valor que toma $b. Si no os importa otra pequeña ayudita ¡je,je! Muchísimas gracias, de verdad.

print "Introduzca la cantidad de numeros a ordenar: ";
$a = <STDIN>;
chomp ($a);
while ($a<=0) {print "Introduzca un numero mayor de 0:";
$a = <STDIN>;
chomp ($a);
}
if ($a>0) {
$n = 0;
while ($n<$a) {print "Introduzca los numeros: ";
$b = <STDIN>;
@numeros = ();
push (@numeros, $b);
$n ++; }
}
print "Los numeros son: @numeros";

Eso es lo que tengo a excepción del chomp, pero bueno este no es fundamental para el desarrollo del programa. Con esto solo introduzco el último número del STDIN en el array, no todos los números introducidos anteriormente, no sé si me explico.

Cierto xD ¡Cómo puedo ser tan ciego, ja,ja!

Según me has ido diciendo las cosas me he dicho ¿cómo no he podido hacerlo sin ayuda? ¡ja,ja!

Hasta aquí lo fácil, ahora viene lo difícil :S

He estado investigando cómo ordenar sin sort() y he encontrado la ordenación por burbuja, pero la verdad que no me entero de nada. Lo poco que he entendido es que hay que ir comparando los números uno a uno y como introduzca 50 va a ser larguísimo. Aquí sí que no tengo ni idea. ¿Me podríais explicar en lenguaje para tontos cómo hacerlo?