0

Задача проверить документ на корректность. Читать буферами определённого размера, потому-что данные не доверенные( вдруг там нету символов конца строки ). Раз мы читаем буферами из-за этого возможны битые символы utf-8. Значит нужно читать символами указав соответствующую кодировку, при открытии файла. Далее нужно проверить на валидность utf-8 и в случае ошибки вывести смещение битого символа в файле. Как это изящно реализовать? Такой мощный язык и всё через какие-то диковатые костыли.

3
  • а если бы это был не перл, могли бы реализовать изящно?
    – KoVadim
    21 апр 2020 в 21:01
  • Да уж perl. Они оболочку со стандартными утилитами не смогли заменить. По теме. Попробуй использовать утилиту iconv. Она показывает смещение недопустимых последовательностей. Этот язык не для серьёзных вещей. Code Golf да пожалуйста. Посмотри какой у меня однострочник тоже сгодится. Но не для серьёзных вещей.
    – user384285
    22 апр 2020 в 0:12
  • Ухаха господа вы серьёзно? Рассмотрим пример из документации. Сразу несколько вопросов. А у буфера ведь нету ограничений и куча сломанных символов легко сожрут память? А если несколько кусков символов раскиданы по файлу и из них соберётся символ который будет валидный? И ни слова об этом. Зато куча пафосных тру программистов. Вот поэтому никто не пишет на этом языке. В оправдание перлу только одно, они всё таки пытаются описать возможные ситуации, в отличии от других.
    – user384399
    22 апр 2020 в 13:58

1 ответ 1

0
open( my $fh, '<:encoding(UTF-8)', $file ) or die $!;

while( read($fh, $buf, $size) ) {
    # Изящно и логично было бы здесь,
    # перехватывать исключения слоя.
    # В этом случае читаются целые символы
    # и есть возможность отслеживать реально битые.     
}

Но увы это невозможно. Вместо этого надо городить какие-то подпорки...

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.