«
»

[Perl] Term-ProgressBarによるプログレスバー表示



プログレスバー

Term-ProgressBarモジュールを使うと、テキストベースのプログレスバーを表示する。

表示例：

$ perl bar.pl
20% [============= ]

Term-ProgressBar サンプルコード

コンストラクタには最大値を渡す。
updateメソッドの引数に指定した値に応じたプログレスバーが表示される。

 use strict;
 use Term::ProgressBar;
 use constant MAX => 10;

 my $prog = Term::ProgressBar->new(MAX);

 for (0..MAX) {
   sleep 1;
   $prog->update($_);
 }

Term-ProgressBar の入手

以下のURLからダウンロード可能。

http://search.cpan.org/dist/Term-ProgressBar/lib/Term/ProgressBar.pm

参考文献

初めてのPerl 第5版 続・初めてのPerl 改訂版 入門Perl・Tk―Perlで簡単GUIプログラミング

この投稿は 2006 年 1 月 21 日 土曜日 12:59 AM に perl カテゴリーに公開されました。 この投稿へのコメントは RSS 2.0 フィードで購読することができます。 現在コメントは受け付けておりませんが、ご自分のサイトからトラックバックを送ることはできます。

コメントは受け付けていません。