indietro

Se avete il modulo Term::ReadKey installato da CPAN, potete usarlo per ottenere la larghezza e altezza in caratteri e pixel:

	use Term::ReadKey;
	($larg_car, $alt_car, $larg_pixel, $alt_pixel) = GetTerminalSize();

Questo è più portabile della ioctl nuda e cruda ma non così illustrativo:

    require 'sys/ioctl.ph';
    die "nessun TIOCGWINSZ " unless defined &TIOCGWINSZ;
    open(TTY, "+</dev/tty")   or die "Nessuna tty: $!";
    unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
        die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
    }
    ($riga, $colonna, $xpixel, $ypixel) = unpack('S4', $grandezzafinestra);
    print "(riga,colonna) = ($riga,$colonna)";
    print "  (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
    print "\n";

vedi in inglese