perl - 捕获，使用 perl Term::Screen 模块或转义序列从终端获取行

Question

我使用 Term::Screen 将字符串放入 xterm。

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

但我想捕捉，得到第二行（偏移量 0 直到 eol），像这样：

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

或者转义序列如何做到这一点？

谢谢你的帮助！

Answer 1

不确定我是否理解正确。我从您的示例代码中获取：您想在第 2 行打印，然后将光标放在同一行的开头并获取用户输入，直到 EOL？无论如何，我建议使用Term::Screen::ReadLine，而不是 Term::Screen。如果我理解正确的话，我想应该是这样的：

#!/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'");