perl - 使用 foreach Perl 将来自多个文件的文本存储在一个数组中

Question

sub open_file {
    my @files = @_;
    my @file_text = ();

    foreach my $file(@files){
        open(my $fh, '<', "./DATA/" . $file) or die "can't open $file: $!";
        @file_text = <$fh>;
        close($fh);
    }
    print "@file_text";
}

将 3 个不同.html文件中的文本连接到一个数组时遇到问题@file_text

到目前为止，脚本仅将文本存储到它循环通过@file_text的最后一个文件中。.html

Answer 1

当然，当您每次使用该行删除 @file_text 的最后一个值时

@file_text = <$fh>;

您应该将此行替换为

push (@file_text, <$fh>);