2

我有我的程序keymap（它实际上还没有映射任何键，目前只打印出它在十六进制中看到的内容）在这里：

#!/usr/bin/env perl

use strict;
use warnings;

use Term::ReadKey;
ReadMode 4;
END {
    ReadMode 0; # Reset tty mode before exiting
}

if ($ARGV[0] ~~ ["h", "-h", "--help", "help"]) {
    print "Usage: (h|-h|--help|help)|(code_in codes_out [code_in codes_out]+)\nNote: output codes can be arbitrary length";
    exit;
}

$#ARGV % 2 or die "Even number of args required.\n";

$#ARGV >= 0 or warn "No args provided. Output should be identical to input.\n";

my $interactive = -t STDIN;

my %mapping = @ARGV;

{
    local $| = 1;
    my $key;
    while (ord(($key = ReadKey(0))) != 0) {
        printf("saw \\x%02X\n",ord($key));
        if ($interactive and ord($key) == 4) {
            last;
        }
    }
}

这是发生的事情：

slu@new-host:~/util 20:50:20
❯ keymap a b
saw \x61
saw \x62
saw \x04

我在键盘上打字abCtrl+D。

slu@new-host:~/util 20:50:24
❯ echo "^D^Da" | keymap
No args provided. Output should be identical to input.
saw \x04
saw \x04
saw \x61
saw \x0A
Use of uninitialized value $key in ord at /Users/slu/util/keymap line 30.

我想知道这是什么意思。这仅仅是Perl“不计算”循环条件作为“设置”的情况$key吗？我可以做些什么来抑制这里的警告吗？我知道no warnings "uninitialized";，我不想那样。

4

1 回答 1

3

有一个已知的错误，循环的条件表达式发出的警告while可能被错误地归因于在 while 条件之前评估的循环中的语句。

发出警告的代码实际上是while循环的条件，ord(($key = ReadKey(0))) != 0.

ReadKey(0)正在返回undef，而您正在尝试获取ordor 它。

while (1) {
    my $key = ReadKey(0);
    last if !defined($key) || ord($key) == 0;

    printf("saw \\x%02X\n",ord($key));

    last if $interactive and ord($key) == 4;
}
于 2013-04-15T01:06:35.790 回答