Answer: How do I print an array with commas separating each element? contributed by Jouke There is: print join( ',', @array ); [download]

Answer: How do I print an array with commas separating each element? contributed by ar0n $, = ','; print @array; [download] $, is the output field separator: print will insert whatever string has been assigned to $, between all of its arguments. Note that if you use this technique, you should make your assignment to $, temporary by doing local $, = ','; [download]

Answer: How do I print an array with commas separating each element? contributed by OfficeLinebacker Observe the difference in effects between $" and $, — $\ = "\n"; my @a = qw( One Two Three ); { local $, = ','; print @a; print "@a"; } { local $" = ','; print @a; print "@a"; } [download] Output: One,Two,Three One Two Three OneTwoThree One,Two,Three [download]

Answer: How do I print an array with commas separating each element? contributed by Roy Johnson $" can also be used for this: local $" = ','; print "@arr\n"; [download]

Answer: How do I print an array with commas separating each element? contributed by nite_man And another way: map { print $_ . ($_ == $array[$#array] ? '' : ', ' ) } @array; [download]

Answer: How do I print an array with commas separating each element? contributed by Coruscate For completeness, here's a verbose solution: my $x; my @a = qw(one two three); print "$a[$_-1], " while $x++ < $#a; print "$a[$#a]"; [download]

Answer: How do I print an array with commas separating each element? contributed by turnstep Here's another way: my $x = 0; printf "$array[$x-1]%s", $x <= $#array ? "," : "\n" while $array[$x++]; [download] It puts a newline instead of a comma after the last element.

Please (register and) log in if you wish to add an answer