2 
#!/usr/bin/env perl
use warnings;
use 5.014;
use Term::Cap;
use POSIX;

my $termios = new POSIX::Termios;
$termios->getattr;
my $ospeed = $termios->getospeed;

my $terminal = Tgetent Term::Cap { TERM => undef, OSPEED => $ospeed };
$terminal->Trequire("ku");  # move cursor up
my $UP = $terminal->Tputs("ku");
my $t = 500;
while ($t > 0) {
    printf "Hour: %d    \n", $t/3600;
    printf "Minute: %d    \n", ($t/60)%60;
    printf "Second: %d    \n", $t%60;
    print $UP,$UP,$UP;
    sleep 5;
    $t -= 5;
}

これを試してみると（ここにあります：Perlでクリアせずに画面上の値を更新するにはどうすればよいですか？）次の出力が得られます：

Hour: 0    
Minute: 8    
Second: 20    
AAAHour: 0    
Minute: 8    
Second: 15    
AAAHour: 0    
Minute: 8    
Second: 10    
AAAHour: 0    
Minute: 8    
Second: 5

key-upこれは、私の端末では機能しないという意味ですか？

4

1 に答える 1

4

あなたはそのku能力を誤解しました。これは、ユーザーが端末の上矢印キーを押したときに生成される文字シーケンスです。画面上で実際にカーソルを上に移動するには、機能を印刷しupます。（また、間接オブジェクト構文は避けるのが最善ですが、それは問題とは関係ありません。）

修正されたバージョンは次のとおりです。

#!/usr/bin/env perl
use warnings;
use 5.014;
use Term::Cap;
use POSIX;

my $termios = POSIX::Termios->new;
$termios->getattr;
my $ospeed = $termios->getospeed;

my $terminal = Term::Cap->Tgetent({ TERM => undef, OSPEED => $ospeed });
$terminal->Trequire("up");  # move cursor up
my $UP = $terminal->Tputs("up");

my $t = 500;
while ($t > 0) {
    printf "Hour: %d    \n", $t/3600;
    printf "Minute: %d    \n", ($t/60)%60;
    printf "Second: %d    \n", $t%60;
    print $UP,$UP,$UP;
    sleep 5;
    $t -= 5;
}

Termcapのマニュアルが役立つ場合があります。すべての機能の意味を説明しています。

于 2011-11-15T18:59:04.983 に答える