perlでプログレスバー的なものを作る

ポイントは$lと\rです。
$|・・・出力をバッファリングするかどうか(0以外はバッファリングしない。つまりprint文は直ぐ出すということ)
\r・・・キャリッジリターンまあ頭にカーソル戻すよーみたいな意味


#!/usr/bin/perl
$max=125;
$split=50;

$| = 1;
$ps=int($max/$split+1);
for (1..$split){
print "[","=" x $_," " x ($split-$_),"]";
print "\r";
sleep 1;
if ($_==$split){
print "[","=" x $split,"]\n";
exit;
}

}


参考リンク
http://perl.g.hatena.ne.jp/bosh/20080107/p1
http://www.geocities.co.jp/SiliconValley-Sunnyvale/6128/perl/evalue.html