标签: perl uppercase lowercase
我正在尝试编写一个脚本,它将所有字母从小写转换为大写而不使用uc()函数。
uc()
答案 0 :(得分:6)
您可以使用$str =~ tr/a-z/A-Z/之类的内容,但uc可能更适合Unicode支持,如果它对您很重要。
$str =~ tr/a-z/A-Z/
uc
答案 1 :(得分:5)
使用正则表达式:
$str =~ s/(.)/\u$1/g;