Perl скрипт, не помойму что за ошибка модуля

1

Winflip

31 августа 2009, 12:22

865

Добрый день. В общем мне необходимо текст одной из трёх кодировок utf-8 cp1251 или koi8-r перевести в utf8. Вот что я сделал:

use Encode;

use Encode::Guess;

my $decoder = guess_encoding($html, qw/utf-8 cp-1251 koi8-r/);

die $decoder unless ref($decoder);

my $html = $decoder->decode($html);

$html - это данный текст

Ошибка:

cp1251 or koi8-r at Z:/home/localhost/www/admin/cat/listofcats.pl line 86.

Подскажите что мне делать собственно

N

419

netwind

31 августа 2009, 12:56

#1

Ну не отгадал модуль. Программиста нанять.

Довольно редко нужно отгадывать кодировку, ведь обычно сайты ее сообщают при передаче.

Что у вас за задачи? Файлы?

Кнопка вызова админа ()

NS

54

nonSmoker

31 августа 2009, 13:04

#2

на http://paste.org.ru весь скрипт.

или хотя бы строку на которой эта ошибка. ну и пример текста на котором падает.

168

bbon

31 августа 2009, 13:22

#3

qw/utf-8 cp-1251 koi8-r/;

может я мнительный, но cp1251 обычно пишется без дефиса. А вообще - если приводите номер ошибочной строки в логе - неплохо бы и в коде указать, с какого номера строки этот кусок кода начинается

N

419

netwind

31 августа 2009, 16:16

#4

Ошибка в строке " die $decoder unless ref($decoder);" только в программе еще много кода. Очевидно, модуль не находит однозначной кодировки и возвращает строку "cp1251 or koi8-r"

И что вам это даст, уважаемые экстрасенсы ?

W

1

Winflip

31 августа 2009, 16:36

#5

Не все сайты отправляют в заголовках кодировку, я проверял. Текст который обрабатываю:

я дёргаю со страницы http://_planeta-tur.ru (не сочтите за рекламу).Другая часть кода работает. Так как я реально дёргал из заголовков, пока не встретил, где кодировки сайта в заголовке нету и в meta тоже

Winflip добавил 31.08.2009 в 20:42

bbon:
может я мнительный, но cp1251 обычно пишется без дефиса. А вообще - если приводите номер ошибочной строки в логе - неплохо бы и в коде указать, с какого номера строки этот кусок кода начинается

Без дефиса, пробовал. Номер первой строки данного кода - 82

N

419

netwind

31 августа 2009, 16:53

#6

Конкретно с этим модулем скорее всего ничего хорошего не получится.

W

1

Winflip

31 августа 2009, 17:33

#7

Конкретно с этим модулем скорее всего ничего хорошего не получится.

Что вы можете предложить?

N

419

netwind

31 августа 2009, 17:38

#8

Моя позиция неизменна - нанять программиста, который слышал про CPAN.

W

1

Winflip

31 августа 2009, 17:56

#9

Я слышал про cpan, но опредёлённого модуля не нашёл

N

419

netwind

31 августа 2009, 18:46

#10

допустим. а сколько вы программируете вообще и на perl в частности ?

Как можно не найти http://search.cpan.org/~rudenko/Lingua-DetectCyrillic-0.02/DetectCyrillic.pm

http://search.cpan.org/~farber/Lingua-RU-Charset-0.02/Charset.pm

Там модулей-то, касающихся русского языка, по пальцам сосчитать можно.

Дзен реализовал для авторов возможность вывода денег через СПБ

Что делать, чтобы попасть в ответы Google Bard