从文件中提取行作为元素perl

Question

while (<IN>) {
  if (/<day>/../<\/day>/) {
    push (@temp, $_);
  }
}

嗨，我想将<day>和</day>之间的所有文件行作为一个元素逐行推送到@temp数组，因为稍后我将搜索该元素中的某些内容如果不等于我将排除它。还有什么想法才能这样做？感谢

Answer 1

while (<IN>) {
  if (my $i = /<day>/../<\/day>/) {
    push @days, '' if $i == 1;
    $days[-1] .= $_;
  }
}