Foro - Perl en Español

Si tienes que explicar cómo funciona el programa, deberás explicar también cómo funciona, al menos por encima, el algoritmo de ordenación elegido. Así que entenderlo, aunque sea un poco, debes hacerlo (lápiz y papel e imitar lo que hace el procesador es una buena ayuda en estos casos).

En la web de RosettaCode.org tienes ejemplos de muchos códigos. También tienes una implementación de este algoritmo en Perl (son solo 3 líneas, con dos líneas más que solo contienen '}').

Lo malo es que está escrito de una forma "supereficiente", y no es clara para la gente que empieza. Esta es una versión más doméstica:


Buscando por Internet te encontrarás con miles de ejemplos más de este algoritmo.

alexclipse escribiste:¿Te importaría explicarme para qué son $#_-1? Es que no sé para que se usan '#' y '_' :S

Por ejemplo, en: if ( $_[$j] < $_[$i] ) no me queda claro para qué son las '_'

O aquí: @_[$i, $j] = @_[$j, $i];

La variable que recoge y almacena todos los argumentos que pasamos a una subrutina es la @_. Como ves, es un array. Así que para acceder al $i-esimo elemento de ese array lo escribimos como $_[$i]. Vamos, como si fuera cualquier otro array de Perl, pero en este caso solo se llama '_'.

Un caso especial de los arrays es cuando le ponemos un '#' delante. Por ejemplo:

@x = ('a', 'b', 'e');
print $#x;

En ese caso, estamos sacando el índice del último elemento del array. En el ejemplo, saldría un 2 en pantalla.

En el algoritmo, estamos usando $#_ para saber el índice del último elemento de @_.

En la subrutina trabajamos con @_, ya que así estamos modificando también los elementos que están en @a.

Más información en (tu propio ordenador en) perldoc perldata (traducido).

alexclipse escribiste:Lo que hace el ordenamiento en burbuja más o menos lo entiendo (creo), sería algo así:
Tengo los números (5,9,23,54,1,76). Pues compara el 5 y el 9. Si 5<9 los deja y si no los cambia. Luego compara 23 y 54, y luego 1 y 76. ¿Cómo continua?

No, no es así. Se compara el 5 con todos los demás. Si en las comparaciones hay algún número menor, se intercambia con él (en este caso, el '1'), y sigue hasta el final. Luego, se coge el segundo elemento de la lista y se compara con todos los demás. Luego el tercero, y así, hasta el penúltimo, que solo tiene que compararse con el último.

alexclipse escribiste:Muchísimas gracias por todo lo que me estás ayudando, siento ser pesado pero es que me cuesta bastante esto del Perl.

Para aprender Perl, es una buena base haber aprendido otro lenguaje, como el C o el awk.

Empezar desde cero.

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

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.