Làm thế nào để lấy chiều rộng đầu cuối trong Perl?

Question

Tôi muốn xuất một thanh tiến trình, nhưng làm cách nào để lấy chiều rộng đầu cuối trong Perl?

Một giải pháp Perl cốt lõi sẽ được ưu tiên, vì tôi không có quyền truy cập vào trình biên dịch, chỉ cần cài đặt 5.8.2 Perl.

Answer 1

Câu hỏi thường gặp đi kèm với Perl có câu trả lời cho câu hỏi này. Nếu bạn chạy perldoc -q "screen size", bạn sẽ nhận được các thông tin sau:

Làm cách nào để có kích thước màn hình?

Nếu bạn đã cài đặt Term::ReadKey mô-đun từ CPAN, bạn có thể sử dụng nó để lấy chiều rộng và chiều cao trong nhân vật và tính theo pixel:

use Term::ReadKey; 
($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize(); 

Đây là di động nhiều hơn "ioctl" thô, nhưng không như minh họa:

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

vì vậy, bạn có thể sử dụng một trong những cuối cùng nếu bạn muốn có một giải pháp Perl tinh khiết, hoặc cài đặt Term::ReadKey từ CPAN nếu bạn muốn có một giải pháp đơn giản trong mã của bạn nhưng thiết lập trước nhiều hơn.

Answer 2

Term::Size::Any có vẻ là những gì bạn đang theo dõi.

Answer 3

Nếu bạn muốn tạo thanh tiến trình, đừng đổ mồ hôi chi tiết. Sử dụng một trong nhiều số progress bar modules on CPAN và được thực hiện với nó.

Answer 4

Điều này rõ ràng phụ thuộc vào nền tảng này, nhưng một giải pháp rất đơn giản mà làm việc ra khỏi hộp trên Linux là thế này:

my $width = `tput cols`;