regex - Perl - 收集所有 STDIN 直到空行或 EOF

Question

如何从 STDIN 行收集所有行，直到出现空白行或 EOF，以先到者为准。它看起来像:

 my @lines;

 while(<> ne EOF || <> not blank) {
      chomp;
      push(@lines, $_);
 }

Answer 1

要停止读取 EOF 或空行上的输入，我更喜欢这个解决方案:

while (<>) {
    last unless /\S/;
    # do something with $_ here...
}

与 mob 的解决方案不同，这不会在 EOF 上给出关于“Use of uninitialized value $_ in pattern match (m//)”的警告。