이 스크립트를 실행하면 마우스의 위치가 255 열까지 올랐다가 0부터 시작됩니다. 내 단말기가 SGR
/mode 1006을 지원하지 않는다는 의미입니까? 모드 (1006)에 전환
(AK2의 대답 때문에 편집) Term :: TermKey : 넓은 마우스를 지원하는 방법?
#!/usr/bin/env perl
use warnings;
use 5.12.0;
use utf8;
use Term::TermKey qw(FLAG_UTF8 FORMAT_LONGMOD FORMAT_MOUSE_POS);
my $tk = Term::TermKey->new(\*STDIN);
binmode STDOUT, ':encoding(UTF-8)' if $tk->get_flags & FLAG_UTF8;
$|++;
print "\e[?1003h";
print "\e[?1006h";
say "Quit with \"q\"";
while(1) {
$tk->waitkey(my $key);
say $tk->format_key($key, FORMAT_LONGMOD | FORMAT_MOUSE_POS);
last if $tk->format_key($key, 0) eq 'q';
}
print "\e[?1006l";
print "\e[?1003l";
'libtermkey' 기반 질문이 늘어나고 있기 때문에 태그를 달아야한다고 생각합니다. 나는 새 탭을 만들기 위해 필요한 평판 (1500)이 부족하지만, 아마도 당신이 이것을 유용하다고 생각한다면 당신은 하나를 만들 수있을 것입니다. 그런 다음 모든 질문을 다룰 수 있습니다. Term :: TermKey perl 래퍼가 아닌'libtermkey' 자체에 대한 것이어야하지만 별칭이 될 수 있습니다. – LeoNerd