擅长:python、mysql、java
<p>下面是一个对<a href="http://hackage.haskell.org/packages/archive/tagsoup/0.12.2/doc/html/Text-HTML-TagSoup.html" rel="nofollow">tagsoup</a>执行相同操作的最小示例:</p>
<pre><code>import Text.HTML.TagSoup
assocLookup k dict = [v | (k', v) <- dict, k == k']
readContactsFile fn = fmap parse (readFile fn)
parse contents = do
TagOpen "contact" attrs <- parseTags contents
id <- assocLookup "id" attrs
name <- assocLookup "name" attrs
return (id, name)
</code></pre>