perl each 函数337

概述each 函数是 Perl 中的一个内置函数，用于迭代数组、散列或列表等可迭代对象中的键值对。它返回一个键值对数组，其中包含当前迭代元素的键和值。

语法```
my ($key, $value) = each %hash;
```

其中：* `%hash` 是一个散列引用。
* `$key` 是散列中当前元素的键。
* `$value` 是散列中当前元素的值。

用法each 函数以以下方式迭代可迭代对象：1. 初始化内部指针，指向对象的第一个元素。
2. 返回第一个元素的键值对数组。
3. 将内部指针移动到下一个元素。
4. 重复步骤 2 和 3，直到到达最后一个元素。
5. 返回 `undef` 以表示迭代完成。

each 函数可以用于遍历各种可迭代对象，包括：* 数组
* 散列
* 列表
* 自定义可迭代对象

示例```perl
# 迭代一个数组
my @array = (1, 2, 3, 4, 5);
foreach my $element (@array) {
print "$element";
}
# 迭代一个散列
my %hash = (
name => 'John',
age => 30,
city => 'New York'
);
foreach my ($key, $value) {
print "$key => $value";
}
# 迭代一个列表
my @list = [1, 2, 3, 4, 5];
foreach my $item (@list) {
print "$item";
}
```

返回键值对数组each 函数返回一个键值对数组，其中包含当前迭代元素的键和值。键值对数组的语法如下：```
($key, $value)
```
* `$key` 是散列中当前元素的键。
* `$value` 是散列中当前元素的值。

以下示例演示如何使用 each 函数返回键值对数组：```perl
my %hash = (
name => 'John',
age => 30,
city => 'New York'
);
# 迭代散列并打印键值对
foreach my ($key, $value) {
print "$key => $value";
}
```
输出：
```
name => John
age => 30
city => New York
```

自定义可迭代对象each 函数还可以用于迭代自定义的可迭代对象。要实现自定义的可迭代对象，需要实现 `next` 和 `reset` 方法。如下例所示：```perl
package MyIterable;
sub new {
my $class = shift;
my $self = bless {
@data = @_;
$index = 0;
}, $class;
return $self;
}
sub next {
my $self = shift;
if ($self->{index} < scalar @{$self->{data}}) {
return $self->{data}[$self->{index}++];
}
return undef;
}
sub reset {
my $self = shift;
$self->{index} = 0;
}
package main;
my $iterable = MyIterable->new(1, 2, 3, 4, 5);
# 迭代自定义可迭代对象
foreach my $element ($iterable) {
print "$element";
}
```
输出：
```
1
2
3
4
5
```