检查给定的字符串是否以Perl中的AZ开头

Question

几天前我接受过编程访问,我需要在Perl中编写一段代码,并在标题中描述功能,过了一段时间,我想出了以下解决方案:

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

面试官似乎对这个解决方案不满意,任何人都可以给出更好的解决方案吗？谢谢

Answer 1

我会写的

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

use warnings给予你自己的解决方案无法生存

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

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