perl - 增量的误区

Question

在 Perl 中，我有以下代码:

my $val = "0";

for(my $z = 0; $z <= 14; $z++)
{
    ++$val;
    if($val == 9) {
        $val = "A";
    }
    print $val;
}

它打印:

1 2 3 4 5 6 7 8 A B 1 2 3 4 5

但它应该继续从 B 到 C，从 C 到 D 等等，这背后的逻辑是什么？

Answer 1

warnings会给你一条警告信息，比如:

Argument "B" isn't numeric in numeric eq (==)

use warnings;
use strict;

my $val = "0";

for(my $z = 0; $z <= 14; $z++)
{
    ++$val;
    if($val eq '9') {   #   <------------------
        $val = "A";
    }
    print $val;
}