Foro - Perl en Español

Buenas,

Quiero imprimir todos los elementos de un array y entre ellos meter una coma; ahora mismo estoy haciendo esto:

El resultado es el esperado... algo más o menos así:

elemento1 , elemento2 , elemento3 ,

Es decir, después de cada elemento del array meto una coma, ¿pero cómo podría hacer para no insertar una coma después del último elemento? Es decir que quede así:

elemento1 , elemento2 , elemento3

¿Se os ocurre alguna forma?

¡Muchas gracias y saludos!

Hola:

Podrías usar la función join de Perl:




SALUDOS

Gracias, kidd; funciona perfecto ;D

Hola,

Otra posibilidad que te resultará más fácil y sencilla, y que te sirve para mostrar por pantalla los elementos de todos tus array separados por un carácter o varios es la siguiente:

Los elementos del array1 y array2 saldrán separados por comas.

En la variable especial $" puedes poner el o los caracteres que quieras como separadores.

Esta variable contiene por defecto un espacio en blanco y cuando haces un print "@array1"; te separa por espacios los elementos.

Si modificas su valor te servirá para todos los arrays que "printes" hasta que vuelvas a modificar su valor.

Creo que el consejo de Kidd es bueno ya que soluciona el problema, pero esta otra opción es más sencilla y el código que generas es más claro y fácil de entender.

Espero que te sea útil.

Un saludo.

Posiblemente la solución se vea "más clara", pero el uso de join es más eficiente, más flexible y más portable que $". Imagina que necesitas generar ciertos argumentos con una lista de elementos en varias ocasiones, ¿vas a estar cambiando $" siempre?

Nota: No siempre es recomendado utilizar las variables mágicas de Perl, de hecho ese es uno de los malos hábitos del lenguaje.

Saludos,