0
8

чтение данных на Perl

max82
2017-04-18 22:19

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

$str = "\xac\xa5\xac\xd1\xac\xdf\xac\xdf\x ac\xed\xac\xd6";

print Encode::encode('cp866',Encode :: decode('cp949', $str)) ;

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

если считываю из файла ту же вроде строку : \xac\xa5\xac\xd1\xac\xdf\xac\xdf\xa c\xed\xac\xd6

то не печатает слово "Данные" подскажите что не так делаю ! ((

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

open(FILE,'0011.txt') or die ("ERROR FILE $!");

while (<FILE>) {

$str = $_;

print Encode::encode('cp866',Encode :: decode('cp949', $str)) ;

}

close(FILE);

Похожие темы
Чтобы ответить, залогиньтесь или зарегистрируйтесь.
  • @user
  • _italic_

    italic

  • **bold**

    bold

  • [PP](http://pragmaticperl.com)

    PP

  • <http://pragmaticperl.com>

    http://pragmaticperl.com

  • module:Plack

    Plack

  • release:URI

    URI

  • author:VTI

    VTI

  • `my $foo = 'bar'`
  • ```
    my $multi;
    $line;
    ```