perl - キャプチャ、perl Term::Screen モジュールまたはエスケープ シーケンスを使用してターミナルから行を取得

Question

Term::Screen を使用して xterm に文字列を配置します。

$scr->at(2,0)->puts("this is some stuff");

しかし、私はキャプチャして、2 行目 (eol までのオフセット 0) を取得したいと思います。

$scr->at(2,0)->gets();

または、エスケープシーケンスはどのようにそれを行うことができますか?

ご協力いただきありがとうございます！

Answer 1

あなたのことを正しく理解しているかどうかわかりません。私が取ったサンプルコードから：行2に印刷してから、カーソルを同じ行の先頭に置き、EOLまでユーザー入力を取得したいですか? いずれにせよ、 Term::Screen ではなく Term:: Screen::ReadLineを使用することをお勧めします。私があなたを正しく理解していれば、それは次のような流れに沿っているはずです。

#!/usr/bin/perl

use strict;
use Term::Screen::ReadLine;

my $t = Term::Screen::ReadLine->new;

$t->clrscr;
#$t->at(2, 0)->puts("this is some stuff");
my $in = $t->readline(ROW => 2, COL => 0, OVERWRITE => 0, LINE => "this is some stuff");

$t->at(3, 0)->puts("You wrote '$in'");