perl - この tty のタブのスペース数

Question

tty である stdout に書き込む perl スクリプトがあります。そのttyのタブにいくつのスペースがあるかを判断する方法はありますか?

Answer 1

terminfoの「it」機能が必要です。

use Term::Terminfo;
my $ti = Term::Terminfo->new; 
$tabsize = $ti->getnum( "it" );