我想展示一个交替角色的动画 /
, |
和 \
.
我应该如何始终在终端的同一个单元格中写入?我需要将光标移回一个位置。
最佳答案
大多数终端将通过向后移动光标来处理退格( chr(8)
)。关键是禁用缓冲。
use Time::HiRes qw( sleep );
$| = 1; # Disable buffering on STDOUT.
my $BACKSPACE = chr(0x08);
my @seq = qw( | / - \ );
for (;;) {
print $seq[0];
push @seq, shift @seq;
sleep 0.200;
print $BACKSPACE;
}
print "$BACKSPACE $BACKSPACE";
关于perl - 如何将光标移回终端中的一个位置?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11460038/