Perl 输出数组362

数组是一种按顺序存储数据的集合。Perl 数组使用下标访问元素，下标从 0 开始。Perl 有多种方法可以输出数组中的数据。

print() 函数

最简单的方法是使用 print() 函数。```perl
my @array = (1, 2, 3, 4, 5);
print "@array";
```

这将输出以下内容：```
1 2 3 4 5
```

foreach 循环

另一种方法是使用 foreach 循环。```perl
foreach my $element (@array) {
print "$element";
}
```

这将输出以下内容：```
1
2
3
4
5
```

join() 函数

join() 函数可以将数组中的元素连接成一个字符串。```perl
my $string = join(",", @array);
print "$string";
```

这将输出以下内容：```
1,2,3,4,5
```

sprintf() 函数

sprintf() 函数可以将数组中的元素格式化为字符串。```perl
my $format = "%d, ";
my $string = sprintf($format, @array);
print "$string";
```

这将输出以下内容：```
1, 2, 3, 4, 5,
```

输出多维数组

Perl 还支持多维数组。要输出多维数组，可以使用递归函数或嵌套循环。

递归函数

```perl
sub print_array {
my @array = @_;
foreach my $element (@array) {
if (ref($element) eq 'ARRAY') {
print_array(@$element);
} else {
print "$element";
}
}
}
my @multidimensional_array = (1, 2, [3, 4], 5, [6, 7, 8]);
print_array(@multidimensional_array);
```

这将输出以下内容：```
1
2
3
4
5
6
7
8
```

嵌套循环

```perl
my @multidimensional_array = (1, 2, [3, 4], 5, [6, 7, 8]);
foreach my $row (@multidimensional_array) {
foreach my $element (@$row) {
print "$element";
}
}
```

这将输出以下内容：```
1
2
3
4
5
6
7
8
```

2024-12-20

---

上一篇：唐凤的 Perl 编程历程

下一篇：Perl 系统调用