在Perl中,可以使用File::Slurp模块将文件行读入数组。以下是一个示例代码:
use strict;
use warnings;
use File::Slurp;
my $filename = "example.txt";
my @lines = read_file($filename);
foreach my $line (@lines) {
print $line;
}
在这个示例中,我们首先使用了File::Slurp模块,然后指定了要读取的文件名。read_file函数将文件的所有行读入一个数组中,然后我们可以使用foreach循环遍历数组并打印每一行。
需要注意的是,这个示例中的文件名是"example.txt",你需要将其替换为你要读取的文件名。