Perlで端末の幅を取得するにはどうすればよいですか？

進捗バーを出力したいのですが、Perlで端末の幅を取得するにはどうすればよいですか？Perlで端末の幅を取得するにはどうすればよいですか？

私はコンパイラにアクセスすることができず、既にインストールされている5.8.2 Perlだけなので、コアPerlソリューションが好まれます。

2009-11-23 Steve Schnepp

。同じホスト上でコンパイルする必要があるという法律はありません。 –

[皮肉な]通常ははい...しかしここではありません。誰もがJavaとPerlがどんな箱でも開発できることを知っているので、開発環境で開発環境と同じ環境（読み込みアーキテクチャ）を使う必要はありません... –

なぜ皮肉なのですか？私はあなたに深刻な答えを与えています。あなたの開発システムと本番システムは本当に重要ではありません。あなたはどちらかにクロスコンパイルすることができます。あなたは助けを得るためにここにいます。私はあなたに無料の助けをしました。 –

Perlに同梱されているFAQがこの質問に対する答えです。 perldoc -q "screen size"を実行すると、次のように表示されます。

画面サイズはどのように取得できますか？

あなたはCPANからインストールTerm::ReadKeyモジュールを持っている場合は、文字にし、幅と高さをピクセル単位で取得するためにそれを使用することができますが：
use Term::ReadKey; 
($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize(); 
これは生の「IOCTL」よりもポータブルではなく、実例として：
require 'sys/ioctl.ph'; 
die "no TIOCGWINSZ" unless defined &TIOCGWINSZ; 
open(TTY, "+</dev/tty") or die "No tty: $!"; 
unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) { 
    die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ; 
} 
($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize); 
print "(row,col) = ($row,$col)"; 
print " (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel; 
print "\n"; 

だから、あなたは純粋なPerlのソリューションをしたい場合は、最後のものを使用するか、またはあなたが簡単な解決策が必要な場合はCPANからTerm::ReadKeyをインストールすることができますあなたのコードではもっと前向きなセットアップです。

出典

2009-11-23 09:55:10

エラーメッセージに含めるように 'h2ph'をどうやって実行しますか：' @INCでsys/ioctl.phを見つけることができません（実行しましたか？ h2ph？） ' –

@Steve：' h2ph'を実行しようとするとどうなりますか？ – Ether

@Ether： 'h2ph'の' -d'オプションが欠けていました。 'ioctl.pl：ioctl TIOCGWINSZ（40007468：システムコールが無効なパラメータを受け取った）' –

Term::Size::Anyあなたが何をしているかのように見えます。

出典

2009-11-23 09:49:24 Dan

コアの一部ではありませんが、まだ知りたいことがあります –

純粋なPerlのバージョンがあります。インストールにはコンパイラは必要ありません。 – Dan

@ダン：ああ...私は見ています:-) –

進捗バーを作成する場合は、詳細を汗ばむことはありません。多くのprogress bar modules on CPANのうちの1つを使用してください。

出典

2009-11-23 12:18:28

+1です。 Term :: ProgressBarにもまた悪いTerm :: ReadKey :-( –

これは明らかに、プラットフォームに依存しますが、Linux上で箱から出して動作します非常に簡単な解決策はこれです：あなたは常に、コンパイラへのアクセス権を持っている

my $width = `tput cols`;

出典

2016-10-27 09:46:32 roryrjb

これはCygwinでも有効です！Thx！ – TrueY

Perlで端末の幅を取得するにはどうすればよいですか？

答えて

関連する問題