help in array processing

[bhooshan.dixit]

I have an array which looks something like this

Bob
Bruce
Tim
Jimmy


I want to add a comma ',' to the end of each element in the array
except for the last element.
Then I want to concatenate each element into a combined string and
store it in a single variable.

I figured out how to add the comma at the end basically by doing
something like this.
foreach(@list1)
{
s/(.*)/$1,/;
}
BUT i need some guidance on how to exclude the last comma on the last
element.

So basically my array show looks something like this.
Bob,
Bruce,
Tim,
Jimmy

notice how the comma is missing after Jimmy.
After the comma's are inserted I want to concatenate and put them in a
string
something like. $t="Bob,Bruce,Tim,Jimmy";

I am kinda a new to perl..so if someone can suggest me different
methods, It would be great.

Thanks
bcd

 

[surfer dude]

[This followup was posted to comp.lang.perl.misc]

While wandering through cyberspace on 2 Jun 2006 15:23:38 -0700, said
....

I have an array which looks something like this

Bob
Bruce
Tim
Jimmy


I want to add a comma ',' to the end of each element in the array
except for the last element.
Then I want to concatenate each element into a combined string and
store it in a single variable.

I figured out how to add the comma at the end basically by doing
something like this.
foreach(@list1)
{
s/(.*)/$1,/;
}
BUT i need some guidance on how to exclude the last comma on the last
element.

So basically my array show looks something like this.
Bob,
Bruce,
Tim,
Jimmy

notice how the comma is missing after Jimmy.
After the comma's are inserted I want to concatenate and put them in a
string
something like. $t="Bob,Bruce,Tim,Jimmy";

I am kinda a new to perl..so if someone can suggest me different
methods, It would be great.

Thanks
bcd

Sounds to me like a good use for the "join" function.

my ( @list1 , $string1 );

$string1 = join(",",@list1);

 

[Ch Lamprecht]

I have an array which looks something like this

Bob
Bruce
Tim
Jimmy


I want to add a comma ',' to the end of each element in the array
except for the last element.

After the comma's are inserted I want to concatenate and put them in a
string
something like. $t="Bob,Bruce,Tim,Jimmy";

I am kinda a new to perl..so if someone can suggest me different
methods, It would be great.

Thanks
bcd

#!/usr/bin/perl
use strict;
use warnings;

my @names = qw/ Bob
Bruce
Tim
Jimmy
/;
my $joined_names = join(',',@names);


See 'perldoc -f join' for documentation.

Christoph

 

[MSG]

I have an array which looks something like this

Bob
Bruce
Tim
Jimmy


I want to add a comma ',' to the end of each element in the array
except for the last element.
Then I want to concatenate each element into a combined string and
store it in a single variable.

I figured out how to add the comma at the end basically by doing
something like this.
foreach(@list1)
{
s/(.*)/$1,/;
}
BUT i need some guidance on how to exclude the last comma on the last
element.

So basically my array show looks something like this.
Bob,
Bruce,
Tim,
Jimmy

notice how the comma is missing after Jimmy.
After the comma's are inserted I want to concatenate and put them in a
string
something like. $t="Bob,Bruce,Tim,Jimmy";

I am kinda a new to perl..so if someone can suggest me different
methods, It would be great.

Thanks
bcd

Perl's join() function does exactly that in one fell swoop:

@list1 = qw( Bob Bruce Tim Jimmy );
$t = join ",", @list1;
print $t;

( I hope you will soon learn about enabling strict and warnings )

For more info on join(), see
perldoc -f join

 

[bhooshan.dixit]

Thanks

#!/usr/bin/perl
use strict;
use warnings;

my @names = qw/ Bob
Bruce
Tim
Jimmy
/;
my $joined_names = join(',',@names);


See 'perldoc -f join' for documentation.

Christoph