如何将Perl与Whiptail规范一起使用？

Question

我可以通过Whiptail来跟踪rsync的进度，使用Awk来解析rsync输出，然而，我很困惑为什么Perl的对应部分不能工作( Whiptail的量规停留在0)。

这是working Awk命令行：

rsync --info=progress2 --no-inc-recursive --human-readable <source> <destination> |
  stdbuf -o0 awk -v RS='\r' '$2 ~ /%$/ { print substr($2, 0, length($2) - 1) }' |
  whiptail --gauge Syncing 20 80 0

这是Perl (我假设)的等价物：

rsync --info=progress2 --no-inc-recursive --human-readable <source> <destination> |
  stdbuf -o0 perl -lne 'BEGIN { $/ = "\r" } print /(\d+)%/' |
  whiptail --gauge Syncing 20 80 0

如果我从Perl版本中删除Whiptail命令，则会按预期打印百分比数字。

如何修改Perl版本？

Answer 1

你可能是suffering from buffering。尝试在STDOUT上设置autoflush。

BEGIN { $/ = "\r"; $|++ }

或者，如果Perl的版本至少为5.14，或者添加了-MIO::Handle开关，您可以更明确地说明：

BEGIN { $/ = "\r"; *STDOUT->autoflush }