Perl foreach 循环：遍历集合中的元素111

Perl foreach 循环是一种遍历集合中元素的强大工具。它可以用于遍历数组、哈希和自定义数据结构等各种数据结构。

语法

foreach 循环的语法如下：```
foreach my $variable ( @array ) {
# 对数组中的每个元素执行代码
}
```

其中：* `$variable` 是用来存储集合中每个元素的变量。
* `@array` 是要遍历的集合。
* `{...}` 是当遍历集合中每个元素时要执行的代码块。

实例

以下示例演示如何使用 foreach 循环遍历数组：```
my @numbers = (1, 2, 3, 4, 5);
foreach my $number (@numbers) {
print "$number ";
}
```

输出：```
1 2 3 4 5
```

变量作用域

在 foreach 循环中声明的变量只在循环体内可用。要访问循环外的变量，需要使用 `my` 关键字声明它们，如下所示：```
my $total = 0;
foreach my $number (@numbers) {
$total += $number;
}
print "Total: $total"; # 访问循环外的变量
```

输出：```
Total: 15
```

遍历哈希

foreach 循环也可以用于遍历哈希。哈希是键值对的集合。```
my %hash = (
"name" => "John Doe",
"age" => 30,
"city" => "New York"
);
foreach my $key (keys %hash) {
print "$key => $hash{$key}";
}
```

输出：```
name => John Doe
age => 30
city => New York
```

自定义数据结构

foreach 循环还可以用于遍历自定义数据结构。以下示例遍历一个自定义的 LinkedList 数据结构：```
class LinkedList {
my @data;
sub new {
my $class = shift;
my $self = {
@data = @_,
};
return bless $self, $class;
}
sub each {
my $self = shift;
return sub {
my $index = shift // -1;
return $index < scalar @{$self->{data}} ? $self->{data}[$index] : undef;
};
}
}
my $list = LinkedList->new(1, 2, 3, 4, 5);
foreach my $item ($list->each) {
print "$item ";
}
```