¿Cómo recupero el ancho del terminal en Perl?

Question

Quiero generar una barra de progreso, pero ¿cómo recupero el ancho de la terminal en Perl?

Se preferiría una solución Core de Perl, ya que no tengo acceso a un compilador, solo un 5.8.2 Perl ya instalado.

Answer 1

Las preguntas frecuentes que se envían con Perl tienen la respuesta a esta pregunta. Si ejecuta perldoc -q "screen size", obtendrá el siguiente:

¿Cómo puedo obtener el tamaño de la pantalla?

Si ha instalado Term::ReadKey módulo de CPAN, puede utilizarlo para buscar a la anchura y la altura de los personajes y en píxeles:

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

Esto es más portátil que la "ioctl" en bruto, pero no como ilustrativa:

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

para que pueda usar el último si quieres una solución Perl puro, o instalar Term::ReadKey de CPAN si desea una solución más simple en su código, pero más configuración inicial.

Answer 2

Term::Size::Any parece ser lo que buscas.

Answer 3

Si quiere hacer una barra de progreso, no se preocupe por los detalles. Use uno de los muchos progress bar modules on CPAN y termine con eso.

Answer 4

Obviamente, esto depende de la plataforma, pero una solución muy simple que funciona fuera de la caja en Linux es la siguiente:

my $width = `tput cols`;