如何將光標移回終端的某個位置？

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"; 

Answer 2

我不知道如何在perl中輸出東西，但這通常是通過輸出退格字符\ b（ASCII碼8）來完成的。例如，在C++中，這通過輸出char（8）來完成。

Answer 3

池上的答案:)

use Time::HiRes qw(sleep); 
$| = 1; # Disable buffering on STDOUT ;) 

for(1..10) { 
    for (qw(|/- \)) { 
     print "$_\b"; 
     sleep 0.2; 
    } 
} 
print