perl - 确定字符串是否在Perl中以大写字母开头

我需要在Perl中创建一个子例程，该子例程确定字符串是否以大写字母开头。到目前为止，我有以下内容:

sub checkCase {
    if ($_[0] =~ /^[A-Z]/) {
        return 1;
    }
    else {
        return 0;
    }
}

$result1 = $checkCase("Hello");
$result2 = $checkCase("world");

最佳答案

那几乎是正确的。但是[A-Z]可能不匹配大写带重音符号的字符，具体取决于您的语言环境。最好使用/^[[:upper:]]/。

同样，您的子例程调用中不应在其前面加上$字符。 IE。他们应该是:

$result1 = checkCase("Hello");
$result2 = checkCase("world");