perlでファイルの内容を配列に読み込む方法は何ですか？

Perlでは、ファイルを開くためにopen関数を使用し、<>演算子を使用してファイルの内容を行ごとに配列に読み込むことができます。以下はサンプルコードです：

my $file = "example.txt";
open(my $fh, "<", $file) or die "Cannot open file: $!";
my @lines = <$fh>;
close($fh);

foreach my $line (@lines) {
    chomp($line); # 去除每行末尾的换行符
    print "$line\n";
}

例えば、最初にopen関数を使用してexample.txtという名前のファイルを開き、次に<>演算子を使用してファイルの内容を1行ずつ@lines配列に読み込みます。最後に、foreachループを使用して配列を反復処理し、各行の内容を出力します。

ファイルを使用したら、close関数を呼び出してファイルハンドルを閉じることが重要です。