Perlで書く 

Perlで書く 2009.04.05 Vol.231

=====================================================================
Perlで書く 2009.04.05 Vol.231
[WAZA]入力文字列の履歴を保存
http://www2u.biglobe.ne.jp/~MAS/perl/
=====================================================================
●入力文字列の履歴を保存

　Term::ReadLineモジュールを使うと入力文字列の履歴を保存して、
カーソルの上下で過去に入力した文字列を簡単に呼び出せるようにできます。
　ESCキーで入力途中の文字列をクリアするのもできるようになります。

---------------------------------------------------------------------
use strict;
use warnings;
use Term::ReadLine;

my $prompt = "計算式：";
my $term = new Term::ReadLine('my calc');
my $out = $term->OUT || \*STDOUT;

while (defined (my $in = $term->readline($prompt))) {
    my $result = eval($in);
    if ($@) {
        print $out $@;
        next;
    }
    $term->addhistory($in);
    print $out $result, "\n";
}
---------------------------------------------------------------------

●関連項目

・一文字入力待ち
  http://www2u.biglobe.ne.jp/~MAS/perl/waza/hitanykey.html

=====================================================================
■雑記

　特にありません。

=====================================================================
Perlで書く(マガジンID：0000109251) 配信数：847
発行者：MAS
本メールマガジンに関するご意見・お問い合わせは
t-masuda@mvd.biglobe.ne.jp までお寄せ下さい。

解除 http://www2u.biglobe.ne.jp/~MAS/perl/magazine.html
検索 http://www2u.biglobe.ne.jp/~MAS/perl/search/index.html
バックナンバー http://archive.mag2.com/0000109251/index.html
RSS  http://archive.mag2.com/0000109251/rss10.xml

本メールマガジンは「まぐまぐ」 http://www.mag2.com/ を利用して発行
しています。
=====================================================================

• 前の記事
• 最新の記事
• 次の記事

規約に同意して

登録した方には、まぐまぐの公式メルマガ（無料）をお届けします。