如何使用Perl一次阅读段落？

Question

当我写

#!/usr/bin/perl -w
use strict;

while( <DATA> ) {
    print "\n-------------------------\n\n";
    print;
    <>;
}

每次“返回”后，我得到一行。

为什么每个“返回”一段之后我都看不到下一个脚本？

#!/usr/bin/perl -w
use strict;

local $/ = "";

while( <DATA> ) {
    print "\n-------------------------\n\n";
    print;
    <>;
}

__DATA__
line one
line two
line three
line four
line five

line six
line seven
line eigth
line nine

line ten
line eleven
line twelve

Answer 1

在第一个脚本中，将$ /变量设置为默认“ \\ n”，<DATA>一次将仅返回一行。

我相信第二个脚本可以满足您的要求，只是<>不会在'return'上终止读取，而是在<ctrl-d>上由于您的$ /设置终止读取（正如其他人指出的，<>读取来自STDIN，但我想您已经知道并且正在使用它来调节输出）。

如果您真的想通过“ return”调节输出，则需要在循环中使用$ /进行更多操作。

while( <DATA> ) {
    print "\n-------------------------\n\n";
    print;
    $/ = "\n"; # default so that the following terminates the read on 'return'
    <>;
    $/ = ""; 
}

Answer 2

我想你在期待这条线

local $/ = "";

改变行为

<DATA>

保持读取直到数据结束。

但实际上需要这样的事情

{
    local $/;  # $/ becomes undef in this block
    ...
}

启用Slurp模式 （并将该模式​​包含在{curlys}内部的范围内）。

实际上，这是在说“忘记将换行符视为记录结束标记”，

除此之外，您的代码中还有一个战斗机 ！

while( <DATA> ) {
    print "\n-------------------------\n\n";
    print;
    <>;    # <-- Feel the power of the DARK SIDE!!!
}

这个小家伙会从STDIN而不是从DATA读取-这真的是您想要的吗？

Answer 3

在段落模式下以交互方式使用<>会造成混乱。 当您点击“ return”时，它不会返回； 相反，它将读取直到获得一个非空行（段落的开头），然后读取直到获得一个空行（该段落的结尾），然后继续读取直到获得一个非空行（该段落的开头）下一段的内容-将被缓冲，不返回），因此它知道它已丢弃任何多余的空行。

也许您应该使用：

local $/ = "\n"; <>

在循环的末尾。 或者也许是POSIX :: getchar（）。