VPF::Проблема с utf8 кодировкой - Форум программистов

alergolog

Дата 25.4.2015, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 25.4.2015

Репутация: нет
Всего: нет

Здравствуйте!

У меня случилась следующая проблема. Perl скрипт никак не хочет печатать на русском языке или считывать из файла русский язык.

1) Если например объявить переменную my $var = 'Привет'; и вывести её. То всё выводится хорошо,:

print "Привет";

2) Но если скрипт получает на вход русское слово, например:
./sample.pl привет

$var = shift;
print "$var";

Будут печататься кракозябры. Такая же ситуация и с файлами.
Не могли бы вы помочь, как заставить считывать скрипт русские буквы а не кракозябры.

Работаю под ubuntu 14.04

Это сообщение отредактировал(а) alergolog - 25.4.2015, 20:25

arto

Дата 26.4.2015, 01:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

# perl -CSA -le 'print "@ARGV"' Привет
Привет
# print Привет | perl -CSA -e 'print <>'
Привет
#

infarch

Дата 27.4.2015, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 526
Регистрация: 13.3.2009

Репутация: нет
Всего: 1

Для начала неплохо бы понять, в какой кодировке приходит "Привет". Переведите строку в байты и попытайтесь это выяснить.

Romikgy

Дата 27.4.2015, 13:05 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

for win

Код


use Encode;
$var = shift;
$string = decode('cp1251', $var);
$var = encode('cp866', $string);
print "$var";

xubuntu 14.04

Код


$var = shift;
print "$var";

work is good

Это сообщение отредактировал(а) Romikgy - 27.4.2015, 13:19

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »