ターミナルの幅とか高さとかを取得しよう
http://docstore.mik.ua/orelly/perl/cookbook/ch15_05.htm
use Term::ReadKey; ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
Term::* は Term::ReadLine しか使った事無いのだけど色々ある模様。
http://docstore.mik.ua/orelly/perl/cookbook/ch15_05.htm
use Term::ReadKey; ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
Term::* は Term::ReadLine しか使った事無いのだけど色々ある模様。