在 Perl 中，可以使用 open 函数打开文件，并使用 < 操作符读取文件内容到数组中。下面是一个简单的示例代码：
云服务器
物理服务器
虚拟主机
跨境电商服务器my $file = 'example.txt';
open(my $fh, '<', $file) or die "Could not open file '$file' $!";
my @lines = <$fh>;
close($fh);
foreach my $line (@lines) {
print $line;
}
在上面的代码中，首先使用 open 函数打开名为 example.txt 的文件，并使用 < 操作符将文件内容读取到名为 $fh 的文件句柄中。然后将文件句柄 $fh 中的内容读取到数组 @lines 中。最后使用 foreach 循环遍历数组中的每一行并打印出来。
请确保文件路径和文件名正确，并有读取权限。
辰迅云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
推荐阅读： perl 数据库操作效率如何