如何在没有uc()函数的情况下将字母转换为UpperCase?

PYP*_*YPL -4 perl lowercase uppercase

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

小智 6

您可以使用类似的东西$str =~ tr/a-z/A-Z/,但uc如果对您很重要,则可能更适合Unicode支持.


Sea*_*ght 5

使用正则表达式:

$str =~ s/(.)/\u$1/g;
Run Code Online (Sandbox Code Playgroud)