Perl tương đương với Php foreach vòng lặp

Question

Tôi đang tìm kiếm một tương đương Perl để đoạn code sau: -

foreach($array as $key => $value){ 
... 
} 

Tôi biết tôi có thể làm một vòng lặp foreach như sau: -

foreach my $array_value (@array){ 
.. 
} 

nào sẽ cho phép tôi làm những việc với các giá trị mảng - nhưng tôi cũng muốn sử dụng các phím.

Tôi biết có một hàm băm Perl cho phép bạn thiết lập cặp khóa-giá trị, nhưng tôi chỉ muốn số chỉ mục mà mảng tự động cung cấp cho bạn.

Answer 1

Hãy thử:

my @array=(4,5,2,1); 
foreach $key (keys @array) { 
    print $key." -> ".$array[$key]."\n"; 
} 

trình cho Hashes và Mảng. Trong trường hợp Mảng, $ key giữ chỉ mục.

Answer 2

Tôi đoán Perl gần nhất là một cái gì đó như thế này:

foreach my $key (0 .. $#array) { 
    my $value = $array[$key]; 

    # Now $key and $value contains the same as they would in the PHP example 
} 

Kể từ Perl 5.12.0, bạn có thể sử dụng chức năng keys trên mảng cũng như băm. Điều đó có thể dễ đọc hơn một chút.

use 5.012; 

foreach my $key (keys @array) { 
    my $value = $array[$key]; 

    # Now $key and $value contains the same as they would in the PHP example 
} 

Answer 3

Nếu bạn đang sử dụng Perl 5.12.0 trở lên bạn có thể sử dụng each trên mảng:

my @array = 100 .. 103; 

while (my ($key, $value) = each @array) { 
    print "$key\t$value\n"; 
} 

Output:

0  100 
1  101 
2  102 
3  103 

perldoc each