如何将多个数组传递给Perl中的'foreach'循环？

Question

I want to write items from two arrays into a file, like

 @a = ('1', '2', '3')
 @b = ('0.1', '0.2', '0.3')

I want my output like this:

1 0.1
2 0.2
3 0.3

in the file.

I tried using two foreach loops, which is obviously wrong,

 foreach my $a (@a) {
    foreach my $b (@b) {
        print FP "$a $b \n";
    }
 }

This is wrong. How do I pass multiple arrays to a foreach loop in Perl?

Answer 1

If you want to output all elements of @a and @b in parallel, you can loop through all indices of one of them (arrays are of same size so it doesn't matter which), and use it to access actual elements ( $a[$i] and $b[$i] )

foreach my $i (0 .. $#a) {
  print "$a[$i] $b[$i] \n";
}

Answer 2

@a=('1','2','3');
@b=('0.1','0.2','0.3');

print "$a[$_] $b[$_] \n" for (0 .. $#a);

Of course this assumes @a and @b are of equal lengths.