¡Os presento a
join()!
Using perl Syntax Highlighting
$x = 6;
print join(",", 1
.. $x);Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
Pero... lo interesante de estas preguntas es VER el código que te falla. No debes esperar a que RockoX te dé una solución. Hay que intentar aprender por uno mismo, de nuestros propios errores. A veces... la solución la tenemos en nuestro propio código y es una tontería que no vemos, hasta que se la enseñamos a otro.
Actualización: RockoX, puedes quitar el último carácter de una cadena de caracteres, con la función
chop(). No necesitas hacer algo tan costoso como una expresión regular para quitar la última coma.
Actualización: Algo así:
Using perl Syntax Highlighting
my $lista;
for (my $i = 1; $i <= 6; $i++) {
$lista .= "$i,";
}
chop $lista;Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4