Using perl Syntax Highlighting
- if ( $seccion eq 'RECHAZADAS' ) {
- # invierto orden de la 1ª y 2ª columna para que se vea similar a las líneas de la sección ACEPTADAS
- print CONCLUSION join(';', @coleccion[1, 0, 2, 3]), "\n";
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- if ( $seccion eq 'RECHAZADAS' ) {
- # invierto orden de la 1ª y 2ª columna para que se vea similar a las líneas de la sección ACEPTADAS
- say CONCLUSION join ';', @coleccion[1, 0, 2, 3];
- }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
En cuanto a la definición de las variables $seccion y $periodo, si te fijas en mi código, yo no lo hago: sé que serán inicializadas en algún momento, así que no me preocupo de darles, al principio, ningún valor. Depende de cómo tengas hecho tu programa.
defined() es una función que devuelve un valor booleano para indicar si la expresión tiene o no un valor undef (indefinido). Más información en tu ordenador, en perldoc -f defined
Los controladores de bucle for() y while() se pueden colocar al final de una instrucción, al igual que if, until y otros. Más información en tu propio ordenador en perldoc perlsyn, y en la Web (traducido), en la sección Modificadores de instrucciones.