Как перевести строку в верхний регистр?

Question

[Orbite]

Как в перле перевести строку с пробелами, числами, точками, запятыми и прочими символами из нижнего регистра в верхний? uc($str) не переводит

Comments

[Oleg]

uc -- функция, результат нужно чему-то присваивать. И она не работает с символами >127, если не Юникод

Answer 1

[Olgeir]

Для этого сначала нужно разобраться в какой кодировке представлена исходная строка. Откуда и как мы её получаем. Если она тупо указана в тексте тогда смотрим какая кодировка самого скрипта. Если она читается из файла, то нужно смотреть на то в какой кодировке файл, и как мы его читаем.

Comments

[Orbite]

Есть строка, допустим с адресом типа "312433, Московская область, город МОСКВА, улица ТВЕРСКАЯ, дом 11" получаю ее из таблицы бд селектом.
Кодировка скрипта KOI8-R, нужно все буквы из нижнего регистра перевести в верхний.
Пробовал перевести с помощью фунции uc и регулярок которые тут написал, но почему то строка остается в первоначальном виде

[Olgeir]

Из бд строка приходит в какой кодировке?

[Orbite]

Olgeir, koi8r

[Olgeir]

в начало скрипта добавить
use encoding 'koi8-r';
это если работа явно идет в кои8, если нет тогда нужно использовать Encode:decode

[Orbite]

Olgeir, спасибо за ответ. Вчера уже решил проблему как раз таки с помощью encode:decode ;)

Answer 2

[Stimulate]

\U$str тоже?

Answer 3

[ant2015]

А если так?
$str =~ tr/a-z/A-Z/;

Comments

[Александр Сапожников]

Не знаю, как сейчас, а несколько лет назад tr/// не работал с кириллицей в UTF-8 — приходилось ставить кучу s///.

Answer 4

[krypt3r]

use utf8;
если не переводит кириллицу.

Comments

[Oleg]

Это говорит Perl только о том, текст программы -- в UTF-8.