Is there an equivalent $. for lists or arrays in map or foreach?

bsdz has asked for the wisdom of the Perl Monks concerning the following question:

Is there the equivalent of $. ($INPUT_LINE_NUMBER) for lists or arrays that can be used in a map or foreach construct, e.g.

my @f = ('%s', '%.2f', '%u','%d');
my @d = ('my string', '123456.54321' ,'1234.4321' , '1234');

my @D = map { sprintf($f[$LIST_INDEX], $_) } @d;

print @D,"\n";
[download]

I would like something like $LIST_INDEX to exist. Is there an alternative concise way of doing what I would like to do?

Comment on Is there an equivalent $. for lists or arrays in map or foreach? Download Code

Replies are listed 'Best First'.
•Re: Is there an equivalent $. for lists or arrays in map or foreach? by merlyn (Sage) on Sep 16, 2004 at 16:55 UTC
The usual idiom is: `my @ARRAY = (...); my @result = map { do something with $_ and $ARRAY[$_] } 0..$#ARRAY;` [download] Then, $_ is giving you the index of the element, and you indirect it to get to the element itself. -- Randal L. Schwartz, Perl hacker Be sure to read my standard disclaimer if this is a reply.	[reply] [d/l]
Re^2: Is there an equivalent $. for lists or arrays in map or foreach? by bsdz (Friar) on Sep 16, 2004 at 17:01 UTC
that's precisely what I was hoping for, the following change makes the original code work. `my @D = map { sprintf($f[$_], $d[$_]) } 0..$#d;` [download] Thank you	[reply] [d/l]
Re: Is there an equivalent $. for lists or arrays in map or foreach? (mapcar!) by tye (Sage) on Sep 16, 2004 at 18:36 UTC
`use Alorithm::Loops qw( MapCarE );` `my @D = MapCarE { sprintf($_[0],$_[1]) } \@f, \@d;` [download] - tye	[reply] [d/l]