3

Haskell で RSS ファイルを解析する必要があり、次のようなことを行います。

atTag tag = deep (isElem >>> hasName tag)
getRSSDetails = atTag "channel" >>>
   proc p -> do 
      fTitle         <- gotoAndTake "title"        -< p
      fLink          <- gotoAndTake "link"         -< p
      fDescription   <- gotoAndTake "description"  -< p
      fLanguage      <- gotoAndTake "language"     -< p
      fGenerator     <- gotoAndTake "generator"    -< p
      fCopyright     <- gotoAndTake "copyright"    -< p
      fWebMaster     <- gotoAndTake "webMaster"    -< p
      fLastBuildDate <- gotoAndTake "lastBuildDate" -< p
                where gotoAndTake a = (getChildren >>> 
                          isElem >>> 
                          hasName a >>> 
                          getChildren >>> 
                          getText)

私の問題は、1 つのタグが欠落している場合、空のリストを取得するよりも RSS ファイルから「lastBuildDate」としましょうが、その項目を「」に置き換えたいだけです。

どうやってやるの ？？ありがとう、

main = do
   rssFeeds <- runX (parseRSS "rss.xml" >>> getRSSDetails)
   print rssFeeds

orElseEDIT1: where gotoAndTake a ... の最後に (constA "") を追加すること で解決

4

1 に答える 1

1

追加で解決

orElse (constA "")

の終わりに

where gotoAndTake a = (getChildren >>> 
                   isElem >>> 
                   hasName a >>> 
                   getChildren >>> 
                   getText)
于 2012-05-22T13:45:19.733 に答える