print join( ',', @array );
[download]

  $, = ',';
  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]

or...

$" = ', ';
print "@array";
[download]

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>

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]

One,Two,Three
One Two Three
OneTwoThree
One,Two,Three
[download]

$" can also be used for this:

  local $" = ',';
  print "@arr\n";
[download]

Should titles in answers be checked for spelling?

Separate has a rat in it.

Update: Of course, misspelling it may make it easier to search for.

-QM
--
Quantum Mechanics: The dreams stuff is made of

map { print $_ . ($_ == $array[$#array] ? '' : ', ' ) } @array;
[download]

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]

Grr., I'd forgotten you can't reply to answers and have it be visible on the answer screen... Plus, this is only a mild (much shorter, tho) variation of another answer. *sigh* We're doing ridiculous ways now? Then why not do this?

my $x;
my @a = qw(one two three);
print $_, ++$x<@a ? ", " : "\n" foreach @a;
[download]

For bonus fun, you can crush all syntactical whitespace out of that print line, too.

Still, I'm thinking I'll stick with the built-in join() for future projects...

--
$you = new YOU;
honk() if $you->love(perl)

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.

Re: How do I print an array with commas seperating each element?

Originally posted as a Categorized Answer.

Re: How do I print an array with commas seperating each element?

Originally posted as a Categorized Answer.

I don't understand how this works?

How does this work?

 
<p> local $, = ','; </p>
<p> local $" = ',';</p>
[download]

 
sub printSpecial() {
      $\ = "\n";
      my @a = qw( One Two Three );

      print ("\n");
      print ("Join print statement\n");
      print ("\n");
      print join( ',', @a );

      {
        # $, The output field separator for the print operator.
        local $, = ',';
        print @a;
        print "@a";
      }
      {
        print ("\n");
        local $" = ',';
        print @a;
        print "@a";

      }
}
[download]

Originally posted as a Categorized Answer.