0

Term :: ReadKeyが実行できるのと同様の方法で、Term :: TermKeyを使用してカーソル位置を取得することは可能ですか？

#!/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;
print "go to column 21 -> |";

print "\e[6n";
my ( $x, $y ) = getch();
say "Col: $x  -  Row: $y";

ReadMode 0;

sub getch {
    my $c = ReadKey 0;
    if ( $c eq "\e" ) {
        my $c = ReadKey 0.10;
        if ( $c eq '[' ) {
            my $c = ReadKey 0;
            if ( $c =~ /\A\d/ ) { 
                my $c1 = ReadKey 0;
                if ( $c1 ne '~' ) {
                    my $y = 0 + $c;
                    while ( 1 ) {
                        last if $c1 eq ';';
                        $y = 10 * $y + $c1;
                        $c1 = ReadKey 0;
                    }
                    my $x = 0;
                    while ( 1 ) {
                        $c1 = ReadKey 0;
                        last if $c1 eq 'R';
                        $x = 10 * $x + $c1;
                    }
                    return $x, $y;
                }
            }
        }
    } 
}
4

1 に答える 1

2

まだですが、私はその計画に取り組んでいます。次のような新しいイベントタイプとして報告される可能性があります。

use Term::TermKey;

my $tk = Term::TermKey->new;

syswrite STDOUT, "\e[6n";

while( $tk->waitkey( my $key ) ) {
  if( $key->type_is_position ) {
    printf "The cursor is at %d, %d\n", $key->line, $key->col;
  }
}

他のCSIシーケンスをフックする機能など、最初に基盤となるCライブラリでいくつかの追加サポートが必要です。一度それが入ると、CSIを介して提供される他の多くのステータスレポートなど、将来的にはより多くのサポートがはるかに簡単になるはずです。

編集2012/04/26 ：上記のようにこのAPIを備えたlibtermkey0.15と0.14をリリースしました。Term::TermKey

于 2012-04-24T11:10:37.223 に答える