Wie kann ich die Terminalbreite in Perl abrufen?

Question

Ich möchte einen Fortschrittsbalken ausgeben, aber wie bekomme ich die Terminalbreite in Perl?

Eine Core-Perl-Lösung wäre vorzuziehen, da ich keinen Zugriff auf einen Compiler habe, nur einen bereits installierten 5.8.2 Perl.

Answer 1

Die FAQ, die mit Perl geliefert wird, hat die Antwort auf diese Frage. Wenn Sie perldoc -q "screen size" ausführen, erhalten Sie die folgenden Schritte aus:

Wie erhalte ich die Bildschirmgröße?

Wenn Sie Term::ReadKey CPAN-Modul installiert ist, können Sie es verwenden, um die Breite und Höhe in Zeichen und in Pixel zu holen:

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

Dies ist mehr tragbar als der rohe „ioctl“, aber nicht als illustrativ:

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

so können Sie die letzte verwenden, wenn Sie eine reine Perl-Lösung wollen, oder Term::ReadKey von CPAN installieren, wenn Sie eine einfachere Lösung wollen in deinem Code aber mehr Vor-Setup.

Answer 2

Term::Size::Any sieht aus, wonach Sie suchen.

Answer 3

Wenn Sie einen Fortschrittsbalken machen wollen, schwitzen Sie nicht die Details. Verwenden Sie einen der vielen progress bar modules on CPAN und damit fertig sein.

Answer 4

Dies hängt offensichtlich von der Plattform, aber eine sehr einfache Lösung, die auf Linux aus der Box funktioniert, ist dies:

my $width = `tput cols`;