如何慢速打印文件？

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)睡眠0.15秒（您可以根据自己的喜好和需要更改此值）。