perl - uc()関数なしで文字を大文字に変換する方法は?

Question

関数を使用せずにすべての文字を小文字から大文字に変換するスクリプトを作成しようとしていuc()ます。

Answer 1

のようなものを使用することもできますが$str =~ tr/a-z/A-Z/、ucそれが重要な場合は、Unicodeサポートの方がおそらく優れています。

Answer 2

正規表現の使用：

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