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

in reply to How do I print an array with commas separating each element?

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]

Comment on Re: How do I print an array with commas separating each element? Download Code

Replies are listed 'Best First'.
Re: Answer: How do I print an array with commas seperating each element? by extremely (Priest) on Feb 14, 2003 at 18:26 UTC
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)	[reply] [d/l]

Replies are listed 'Best First'.

Re: Answer: How do I print an array with commas seperating each element?
by extremely (Priest) on Feb 14, 2003 at 18:26 UTC

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)

[reply]
[d/l]

In Section Seekers of Perl Wisdom