每个字符打印管道而不是换行符

Question

在 Perl 中我现在喜欢这样：

while (<$pipe>)
{
    print $_;
}

但这只是给我逐行输出。我怎样才能打印出每个字符，或者按\r 而不是\n 分割。管道仅在换行符上为我提供数据。

（我想打印另一个进程的输出，而那个进程正在使用\r 来打印它的进程进度，这对我来说只是一条简单的线，100% ..）

Answer 1

Perl 有一个“输入记录分隔符”$/ 的概念，它通常设置为分隔行。您可以阅读full documentation here。每当您从文件句柄中读取一行/记录时，都会读取数据直到文件末尾，或者直到读取 $/ 变量中的当前字符串。

例如：给定输入字节aabaa 和$/ = "b"，那么my @records = <$fh> 将产生('aab', 'aa')。请注意，始终包含分隔符，但可以使用 chomp 删除（无论分隔符设置为什么）。

从文件读取时，必须在读取行之前设置$/，如下所示：

local $/ = "\r"; # "local" avoids overriding this value everywhere
while(my $line = <$pipe>) {
  chomp $line;
  ...
}

$/ 有几个特殊值：

• 空字符串$/ = '' 将两个或多个连续\ns 的序列视为分隔符（“段落模式”）。
• 如果设置为数字引用，则读取该字符数：$/ = \42（以 42 个字符块读取）。在这种情况下，人们宁愿使用read 函数。