В настоящее время я пытаюсь сделать некоторые строковые манипуляции в попытке ускорить раздел традиционного кода Perl.Исходный код Perl выглядит как
my $value = 'abCdE';
my $uc_value = uc($value);
Я смотрел на API-интерфейс Perl Guts, и кажется, что я могу сделать это, используя toUPPER()
, но это работает на одном символе за раз.Кажется, мне не хватает того, как вы можете перебрать массив вспомогательных символов, заглавные буквы и затем присвоить их новому SV.
Любая помощь очень ценится.