perl - 终端:我在哪里？

Question

是否有一个变量或函数可以告诉我光标的实际位置？

#!/usr/bin/env perl
use warnings;
use 5.012;

use Term::ReadKey;
use Term::Cap;
use POSIX;

my( $col, $row ) = GetTerminalSize();

my $termios = new POSIX::Termios;
$termios->getattr;
my $ospeed = $termios->getospeed;

my $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };

# some movement ...

# at which position (x/y) is the cursor now?

Answer 1

您可以使用 curses反而。它有 getcurx()和 getcurx() .有一个CPAN module对于它(以及 Debian 或 Ubuntu 中的 libcurses-perl 包)。