如何打印文件慢？

Question

我正在准备一个演示文稿，我希望在我评论它的同时将一个文件立即打印在屏幕上。输入cat file.txt | less 似乎是一个显而易见的解决方案，但还有其他更优雅、更赏心悦目的解决方案吗？

Answer 1

perl -ne '$|=1; for (split //) { print; select(undef,undef,undef, 0.15) }' file.txt

$|=1 不缓冲。

for (split //) { print; ...对于每个打印的字符...

select(undef,undef,undef, 0.15)sleep 0.15 秒（你可以根据自己的口味和需要改变这个值）。