perl - 如何在没有 uc() 函数的情况下将字母转换为大写？

Question

我正在尝试编写一个脚本，它将所有字母从小写转换为大写而不使用该uc()函数。

Answer 1

你可以使用类似的东西$str =~ tr/a-z/A-Z/，但uc如果它对你很重要的话，它可能更适合 Unicode 支持。

Answer 2

使用正则表达式：

$str =~ s/(.)/\u$1/g;