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

【问题标题】：extract lines from file as an element perl从文件中提取行作为元素perl
【发布时间】：2016-05-16 14:33:33
【问题描述】：

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

嗨，我想将<day> 和</day> 之间的所有文件行作为一个元素而不是逐行推入@temp 数组，因为稍后我将搜索该元素中的某些内容，如果不等于我将排除它。任何想法使用什么来做到这一点？谢谢

【问题讨论】：

【解决方案1】：

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

【讨论】：