я написал следующий код Haskell import Data.Attoparsec (Parser) import qualified Data.Attoparsec.Char8 as A import qualified Data.ByteString.Char8 as B someWithSep sep p = A.sepBy p sep код должен работать следующим образом: main*>...

У меня есть небольшой скрипт для чтения, анализа и получения какой-то интересной (не совсем) статистики из файла журнала apache. Пока что я сделал два простых варианта: общее количество байтов, отправленных во всех запросах в файле журнала, и 10...

Мне нужно разобрать поля фиксированной длины с помощью attoparsec, но сейчас я борюсь с компилятором. Я все еще новичок, приведенный ниже код - самое близкое решение, которое у меня есть: > {-# LANGUAGE OverloadedStrings #-} > import...

Я пытаюсь прочитать файл сценария, затем обработать и вывести его в файл html. В моем файле сценария всякий раз, когда есть @title(это заголовок) , я добавляю тег [header] это заголовок [/header] в свой html выход. Итак, мой подход заключается в...

У меня есть текстовый файл (~ 300 МБ) с вложенным списком, похожим на этот: [[4, 9, 11, 28, 30, 45, 55, 58, 61, 62, 63, 69, 74, 76, 77, 82, 87, 92, 93, 94, 95], [4, 9, 11, 28, 30, 45, 55, 58, 61, 62, 63, 69, 74, 76, 77, 82, 87, 92, 93, 94],[4, 9,...

Attoparsec предоставляет функцию takeWhile1 , которая использует хотя бы один символ. Однако аналога для skipWhile нет. Как я могу реализовать эту функцию skipWhile1 ? Примечание. Этот вопрос намеренно не показывает никаких...

Я хочу разобрать текст, например "John","Kate","Ruddiger" , в список строк. Я попытался начать с разбора "John", в Name (псевдоним для String), но это уже не удается с Fail "\"," [","] "Failed reading: satisfyWith" . Вопрос A: Почему...

Я хочу разобрать первую строку CSV-файла и получить в результате список парсеров и с треском провалиться. После некоторых упрощений я получил код, который, я думаю, должен работать, но он не работает, и я не понимаю, почему. Вот: {-#...

Я застрял в написании синтаксического анализатора attoparsec для анализа Единого кода для единиц измерения. of Measure вызывает <ATOM-SYMBOL> . Он определяется как самая длинная последовательность символов определенного класса (этот класс...

У меня есть анализатор Attoparsec : myParser :: Parser Text myParser = char '"' *> takeWhile (not . isspace) <* char '"' Я хочу сделать этот парсер необязательным, поэтому я получаю функцию, которая возвращает Just txt , если парсер...

Скажем, у меня есть анализатор attoparsec, x . Я хочу создать функцию f :: Int -> Parser a -> Parser a , чтобы если y = f n x , то: y терпит неудачу, если x терпит неудачу y завершается ошибкой, если x завершается успешно, а...

Я пытаюсь разобрать многострочный журнал, подобный этому [xxx] This is 1 [xxx] This is also 1 [yyy] This is 2 Я определил эти типы {-# LANGUAGE OverloadedStrings #-} module Parser where import Prelude hiding(takeWhile) import Data.Text...