perl - 将 Perl 格式的输出发送到 less

Question

我定义了这样的格式:

# header format
format STDOUT_TOP = 
pid    ppid   start_addr   uid   gid   state     vsz   rss     name 
--------------------------------------------------------------------------
.

# data format
format STDOUT = 
@>>>  @>>>   @>>>>>>>>>>  @>>>  @>>>  @>>>    @>>>>>  @>>>  @<<<<<<<<<<<<<<<<<<<
$pid, $ppid, $h_next,     $uid, $gid, $state, $vm,    $rss, $name
.

当我打印到 STDOUT 时，当我调用 write 时一切正常，但我正在处理大量数据并且需要多页才能显示；对我或其他人来说，检查它的理想方式是少用。当我将程序的输出通过管道传输到 less 时，^L 字符会在每个新输出页的页眉之前打印出来。

截图:

有什么办法解决这个问题吗？因为如果打印该字符，那么我的标题与我的数据未对齐。

如有任何帮助，我们将不胜感激。

Answer 1

这是一个 ASCII 换页符。它可能在两种情况下都被打印出来，但 less 实际上是 显示 它。根据perlform和 perlvar , perl 正在输出 $^L 的内容(或 use English 下的 $FORMAT_FORMFEED)。尝试将该 var 设置为空字符串或换行符。