我们怎样得到屏幕的尺寸

如果你有从 CPAN

下载的 Term::ReadKey 这个模块，, 你可以用它来得到你的屏幕的大小尺寸：

use Term::ReadKey;

($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();

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