#!/usr/bin/env perl
use warnings;
use 5.012;
use Term::ReadKey;
sub getch {
my $c = ReadKey 0;
if ($c eq "\e") {
my $c = ReadKey 0.10;
if ($c eq '[') {
my $c = ReadKe
這適用於按鍵，但不適用於鼠標點擊。我應該改變什麼才能使其工作（Term::TermKey）？ #!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
use Term::TermKey qw(FLAG_UTF8);
my $tk = Term::TermKey->new(\*STDIN);
binmode STDOUT, ':en
當我運行這個腳本時，鼠標的位置工作到列255 - 然後計數以0開始。這是否意味着我的終端不支持SGR/mode 1006？ （由於AK2的答案編輯） #!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
use Term::TermKey qw(FLAG_UTF8 FORMAT_LONGMOD FORMAT_MOUSE_POS);
是否有可能以類似的方式得到光標位置的保持與Term::TermKeyTerm::ReadKey可以做到這一點： #!/usr/bin/env perl
use warnings;
use 5.12.0;
use Term::ReadKey;
ReadMode 4;
system('clear') == 0 or die $?;
print "Hello world\n" x 4;