|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Andrew Martovlos 2:5020/400 09 Dec 2001 06:07:42
To : Artem Chuprina
Subject : Re: "Интерфейс коммандной строки" в perl'е.
--------------------------------------------------------------------------------
Доброй ночи, Artem!
Thu, 06 Dec 01 12:07:15 +0200
Artem Chuprina <ran@ice.ru>
wrote to: fido7.ru.linux
AM> Как бы организовать (безболезненно) возможность редактировать
AM> строку стандартного ввода в программе на perl'е. Типа $input
AM> = <>;
AM> И чтобы можно было перемещаться в начало строки, в конец,
AM> (C^a, C^e и т.д) стрелками пользоваться... А то появляеться
AM> всякая херня, типа ^A^A^A^A^H^H^?^?^? и т.д.
Artem> Как и во всех остальных подобных случаях, с помощью
Artem> readline.
Спасибо. Только я не совсем понял принципа действия. :(
Тот пример что дан в мануале...
use Term::ReadLine;
$term = new Term::ReadLine 'Simple Perl calc';
$prompt = "Enter your arithmetic expression: ";
$OUT = $term->OUT || STDOUT;
while ( defined ($_ = $term->readline($prompt)) ) {
$res = eval($_), "\n";
warn $@ if $@;
print $OUT $res, "\n" unless $@;
$term->addhistory($_) if /\S/;
}
.. к сожалению не работает, и я не могу понять в чем причина. :(
Может кто, кому не влом, скинет мне на мыло самый елементарный пример.
А то незачто зацепится.
До встречи в эфире!
=======================================================================
--- ifmail v.2.15dev5
* Origin: Gala-L PPP Station (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
