[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プログラミング

Comments are closed.