Perl에서 터미널 폭을 검색하려면 어떻게해야합니까?

Question

진행률 표시 줄을 출력하고 싶지만 Perl에서 터미널 너비를 어떻게 검색합니까?

필자는 컴파일러에 액세스 할 수 없기 때문에 핵심 Perl 솔루션을 선호합니다. 이미 설치된 5.8.2 Perl.

Answer 1

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"; 

그래서 당신은 마지막 하나를 사용할 수 있습니다, 또는 당신이 간단한 해결책을 원하는 경우 CPAN에서 Term::ReadKey 설치 귀하의 코드에서하지만 더 많은 - 앞에 설정합니다.

Answer 2

Term::Size::Any 당신이 겪은 것처럼 보입니다.

Answer 3

진행률 표시 줄을 만들려면 세부 사항을 신경 써야합니다. 많은 progress bar modules on CPAN 중 하나를 사용하고 끝내십시오.

Answer 4

이것은 분명히 플랫폼에 따라 다르지만 리눅스 상자 밖으로 작동하는 매우 간단한 해결책은 이것이다 : 당신은 항상 컴파일러에 액세스 할 수

my $width = `tput cols`;