Re: how can i get the index value of array during runtime

in reply to how can i get the index value of array during runtime

Hi phemal, try using Array::Each module,

use strict;
use warnings;
use Array::Each;
 
 my @x = qw( p e r l );
 my $one = Array::Each->new( \@x );
 
 while( my( $x, $i ) = $one->each() ) {
     printf "%3d: %s\n", $i, $x;
 }
[download]

TIMTOWDI

Otherwise,

use strict;
use warnings;

my @x = qw( p e r l );
for my $index (0..$#x){
    print "$index : $x[$index]\n";
}
[download]

Update: Also refer (RFC) Arrays: A Tutorial/Reference

Regards,
Velusamy R.

eval"print uc\"\\c$_\""for split'','j)@,/6%@0%2,`e@3!-9v2)/@|6%,53!-9@2~j';

In Section Seekers of Perl Wisdom