How can I output a list as comma-separated values in Perl?

Question

Let's say I have a list of elements

@list=(1,2,3);
#desired output
1,2,3

and I want to print them as comma separated values. Most importantly, I do not want the last element to have a comma after it.

What is the cleanest way to do this in Perl?

Answer 1

print join(',', @list), "\n";

Answer 2

You have several options. The most generic is to join them with join function:

print join(',', @list), "\n";

The other way is to modify special variables, which affect print statement. For example, the effect of the above one may be achieved with

$, = ",";
$\ = "\n";
print @list;

You can also automatically join list if it undergoes double-quoted expansion:

$" = ",";
print "@list","\n";

Note that if you modify special variables like $,, $\ or $", you set them globally. To avoid it, use local keyword and enclose the operands in a block.