capture, get line from terminal with perl Term :: Экранный модуль или escape-последовательности

Question

Я использую Term :: Screen для ввода строки в xterm.

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

Но я хотел бы, чтобы захватить, получить 2-ю линию (не смещение 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'");