perl - 如何将变量数组存储在另一个数组中？

Question

我有一个关于在另一个数组中保存数组的 perl 查询。之前问过一个相关的查询( How do I add an array ref to the middle of an existing array in Perl? )，但我找不到我的答案，所以我把它贴在这里。

我有 10 个文本文件，每个文件大约有 100 行文本。我想选择所有包含“重要”一词的行。执行此操作的脚本如下。我将所有包含单词“important”的行保存在一个数组中。所以，从每个文本文件中，我得到一个数组。我想将所有这些数组保存在另一个数组中？

my @list_of_files = ("input1.txt", "input2.txt","input3.txt"); my $list_of_files = @list_of_files;

for ($file=0, $file<$list_of_files; $files++){
 open INPUT_FILE, "$list_of_files[$file]" or die "can't open $file : $!";
 my @input = <INPUT_FILE>;
 my $size = @input;

 for ($num=0; $num<$size; $num++){
  if ($input[$num] =~ m/important/) {
   push (@sub_array, $output);
  }
 }
 close INPUT_FILE;
 push (@main_array, \@sub_array);   
}

@sub_array 的元素每次都会改变，那么，如何保留所有 sub_arrays 的元素？我希望最终输出为@main_array，其中包含 3 个元素，每个元素都是一个元素数组(包含“重要”一词的行)

非常感谢任何帮助 TIA

Answer 1

我对 bvr 的做法略有不同。但他的观点仍然成立。

# use qw() to define line with less punctuation
my @list_of_files = qw(input1.txt input2.txt input3.txt);

my @lines_in_file;

foreach my $file (@list_of_files) {
  open(my $in, '<', $file) or die "can't open $file : $!";

  # declare an array, not a scalar
  my @lines;

  # idiomatic use of while(<>) puts each record into $_
  while (<$in>) {
    # /../ works on $_ by default.
    # Postfix condition is more readable
    push @lines, $_ if /important/;
  }

  # Take reference to array and push it onto main array
  push @lines_in_file, \@lines;
}