2

Haskellを学び始め、Parsecに精通することにしましたが、問題がありました。FB2の形式で本の解析を実装しようとしています。従来のタグ（テキスト）では問題ありませんが、タグ内のタグが機能しない場合。

import Text.ParserCombinators.Parsec

data FB2Doc = Node String FB2Doc
            | InnText String
            deriving (Eq,Show)

parseFB2 :: GenParser Char st [FB2Doc]
parseFB2 = many test

test :: GenParser Char st FB2Doc
test = do name <- nodeStart
          value <- getvalue
          nodeEnd
          return $ Node name value

nodeStart = do char '<'
               name <- many (letter <|> digit <|> oneOf "-_")
               char '>'
               return name

nodeEnd = do string "</"
             many (letter <|> digit)
             char '>'
             spaces 
gettext = do x <- many (letter <|> digit <|> oneOf "-_")
             return $ InnText x 

getvalue = do (nodeStart >> test) <|> gettext <|> return (Node "" (InnText ""))
main = do
         print $ parse parseFB2 "" "<h1><a2>ge</a2></h1> <genre>history_russia</genre>"
4

1 に答える 1

1

私はあなたがこれを望んでいると思います：

getvalue = try test <|> gettext

try空のノードには次のものが必要です"<bla></bla>"。testのを消費し、'<'バックトラックを可能にします</bla>。try

于 2011-10-10T12:43:44.643 に答える