2

この機能を実現するには、何を変更する必要がありますか？

 #!/usr/bin/perl
 use 5.012;
 use warnings;
 require "/usr/lib/perl5/vendor_perl/5.12.1/x86_64-linux-thread-multi/sys/ioctl.ph";
 my ($rows, $cols, $xpix, $ypix);

 my $winsize = "\0" x 8;
 my $TIOCGWINSZ = 0x40087468;  # should be require sys/ioctl.pl
 if (ioctl(STDOUT, $TIOCGWINSZ, $winsize)) {
     ($rows, $cols, $xpix, $ypix) = unpack('S4', $winsize);
 } else {
     say "something didn't work" and exit;
 }

列から行へのtchristの回答に触発されました。

4

5 に答える 5

3

行と列の数を取得するために、私はこれをやっています:

#!/usr/bin/perl
use strict;
use warnings;

my $cols = 80;
my $rows = 24;
for (`stty -a`) {
    /columns ([0-9]+);/ and do { if ($1 > 0) { $cols = $1; }};
    /rows ([0-9]+);/    and do { if ($1 > 0) { $rows = $1; }};
}
print "cols=$cols\trows=$rows\n";
于 2010-11-26T15:29:24.657 に答える
2

使ってみませんTerm::Sizeか？これはioctl()メソッドを使用し、Perlからすぐに使用できる素敵なXSコードにまとめられています。

于 2012-04-21T23:24:31.503 に答える
2

Term::ReadKey端末のサイズを取得するためのメソッドが組み込まれており、Windows を含むさまざまな端末をサポートしています。このモジュールを使用する CPAN 上の膨大な数のモジュールを考慮すると、おそらくこれは既にインストールされています。

#!/usr/bin/perl -w
use strict;
use Term::ReadKey   qw/ GetTerminalSize /;

my @winsize = &GetTerminalSize(\*STDOUT);
my ($cols, $rows, $xpix, $ypix) = @winsize;
print "cols:$cols rows:$rows xpix:$xpix ypix:$ypix\n";
于 2015-07-10T19:16:44.660 に答える
1

これは私にとってはうまくいきます：

#!perl

use strict;
use warnings;

require 'sys/ioctl.ph';

my $winsize = ""; # Silence warning
if (ioctl(STDOUT, TIOCGWINSZ() , $winsize)) {
        my ($rows, $cols, $xpix, $ypix) = unpack 'S4', $winsize;
        print join ":", $rows, $cols, $xpix, $ypix;
        print "\n";
} else {
        warn "Something didn't work.\n";
}

require はフルパスを必要としません (また、持つべきではありません)。readTIOCGWINSZ は、ioctl ヘッダーをロードすることによって既に定義されており、宛先スカラーを正しいサイズに初期化する必要があるという兆候はありません (ただし、まったく初期化されていない場合、perl は警告をスローします。ioctl の性質のように、それを静かにするために "" に設定しました)。

于 2010-11-26T19:27:27.093 に答える
0

もう 1 つの方法は、C に の値を教えてもらうことですTIOCGWINSZ。あなたがそれをしている間に、他の引数のサイズも教えてくれるかもしれません。

#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <sys/ioctl.h>
#include <termios.h>

int
main(argc, argv)
    int   argc;
    char *argv[];
{
    struct winsize mywinsize;
    int ttyfd;

    if ((ttyfd = open("/dev/tty", O_RDWR|O_NOCTTY)) == -1) {
        perror("open /dev/tty");
        exit(-1);
    }

    if (ioctl(ttyfd, TIOCGWINSZ, &mywinsize) == -1) {
        perror("ioctl TIOCGWINSZ");
        exit(-1);
    }

    printf("TIOCGWINSZ %#08lx\n",           TIOCGWINSZ             );
    printf("sizeof struct winsize %lu\n",   sizeof(struct winsize) ); 
    printf("rows %d\n",                     mywinsize.ws_row       );
    printf("cols %d\n",                     mywinsize.ws_col       );

    if (fclose(stdout) == EOF) {
        perror("close stdout");
        exit(-1);
    }

    exit(0);
}

おそらく、親切な魂があなたのInline::Cためにそれを包む方法を教えてくれるかもしれませんが、当面はこれで十分です. ̲b̲o̲t̲h̲ 種類のシステムで実行されるため、これは移植可能なプログラムであることに注意してください。

☺BSD ☺</h2> 
    OpenBSD% cc getwinsz.c && a.out
    TIOCGWINSZ 0x40087468
    sizeof struct winsize 8
    rows 81
    cols 166

    Darwin% cc getwinsz.c && a.out
    TIOCGWINSZ 0x40087468
    sizeof struct winsize 8
    rows 37
    cols 126

☹SysV ☹</h2> 
   Slolaris% cc getwinsz.c && a.out
   TIOCGWINSZ 0x005468
   sizeof struct winsize 8
   rows 37
   cols 126

   Leenooxe% cc getwinsz.c && a.out
   TIOCGWINSZ 0x005413
   sizeof struct winsize 8
   rows 37
   cols 126

于 2010-11-26T16:09:45.050 に答える