perl - 如何将光标移回终端中的一个位置？

Question

我想展示一个交替角色的动画 / , |和 \ .

我应该如何始终在终端的同一个单元格中写入？我需要将光标移回一个位置。

Answer 1

大多数终端将通过向后移动光标来处理退格( 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";