How to tell the last iteration in a foreach loop?

[meili100]

foreach $key (keys (%hash)){
  print "$hash{$key}:";
}

The last element will also be followed by a ":" which is not what I want. Is there a way to tell when foreach loops to its last round, so that I can skip printing the last ":"? Thanks!

[numberwhun]

First, please use code tags, they are required.

Second, can you provide a sample of the data so we can see what you are talking about?

Regards,

Jeff

[KevinADC]

already answered on tek-tips

print join(':', map{$hash{$_}} keys %hash);

[vikramkumar]

for example assume i have an array i.e,

my @a = (1,2,3,4,5,6);

for(my $i = 0;$i<$#a;$i++) {
         print $a[$i];
}

Above for loop we r excluding last element to print;

[Ganon11]

That's because you have i<$#a - use i<=$#a instead.

Better yet, use a foreach loop:

[CODE=perl]for my $element (@a) {
print $element;
}[/CODE]

[KevinADC]

for example assume i have an array i.e,

my @a = (1,2,3,4,5,6);

for(my $i = 0;$i<$#a;$i++) {
         print $a[$i];
}

Above for loop we r excluding last element to print;

Next time post a new thread.