Чтение данных в кодировке 949

@amax_l · Регистрация: 03.08.2015

Author24 — интернет-сервис помощи студентам

Доброе времени суток !
ни как не пойму в чем проблема , когда читаю строку так :

Perl

1 2	$str = "\xac\xa5\xac\xd1\xac\xdf\xac\xdf\xac\xed\xac\xd6"; print Encode::encode('cp866',Encode::decode('cp949', $str)) ;

То все в порядке и печатает слово "Данные".

если считываю из файла ту же вроде строку : \xac\xa5\xac\xd1\xac\xdf\xac\xdf\xac\xed\xac\xd6
то не печатает слово "Данные"
подскажите что не так делаю ! ((

пример (кусок кода):

Perl

open(FILE,'0011.txt') or die ("ERROR FILE $!");
   while (<FILE>) { 
      $str = $_;
      print  Encode::encode('cp866',Encode::decode('cp949', $str)) ;
   } 
close(FILE);

@hobo-mts · 19.04.2017, 08:38

При чтении из файла строки типа "\xac" не преобразуются в байты с этими кодами, как если бы они были заключены в одинарные кавычки. Это нужно делать самому. В первом примере это делает компилятор.

Добавлено через 1 час 32 минуты
Преобразовать можно примерно так (наверное, не самое красивое решение):

Bash

1
2
3

$ perl -e 'my $str = <>; $str =~ s{ \\x([0-9a-f]{2}) }{ chr(oct("0x$1")) }egix; print "$str";' | iconv -f CP949
\xac\xa5\xac\xd1\xac\xdf\xac\xdf\xac\xed\xac\xd6
Данные

@amax_l · 19.04.2017, 10:35 **[ТС]**

Спасибо !
очень помогло.

volodin661 · 19.04.2017, 22:24

Сообщение от hobo-mts

Преобразовать можно примерно так (наверное, не самое красивое решение):

да, можно покороче

Bash

1	perl -pE '$_=eval(qq/"$_"/)' 0011.txt \| iconv -f CP949

@amax_l 0 / 0 / 0 Регистрация: 03.08.2015 Сообщений: 2
	19.04.2017, 10:35 [ТС]	3
	Спасибо ! очень помогло. 0

	19.04.2017, 22:24

Опции темы