打开文本文件并使用Perl将其读入数组的最简单方法

#!/usr/bin/perl

use strict;
use warnings;

# 打开文件
open(my $fh, '<', 'file.txt') or die "Can't open file: $!";

# 读取文件内容并将其存储在数组中
my @lines = <$fh>;

# 关闭文件
close($fh);

# 输出数组中的每一行
foreach my $line (@lines) {
    print $line;
}