regex - 在 Perl 中检查给定字符串是否以 A-Z 开头

Question

我前几天参加了一个编程面试，要求我用Perl写一段代码，实现标题中描述的功能，经过一段时间，我想出了以下解决方案:

sub startWithUppercaseLetter {
    return @_[0] =~ m/^[A-Z]/;
}

面试官似乎对这个解决方案不满意，有人可以提供更好的解决方案吗？谢谢

Answer 1

我会写

sub starts_with_capital {
  shift =~ /^[A-Z]/;
}

你自己的解决方案无法生存使用警告，给予

Scalar value @_[0] better written as $_[0]

在本地标识符中使用大写字母是不好的做法。