Advertisement
Guest User

Untitled

a guest
Mar 20th, 2011
772
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Erlang 0.38 KB | None | 0 0
  1. -module(xml2_impr).
  2. -export([parse/1]).
  3. -include_lib("xmerl/include/xmerl.hrl").
  4.  
  5. parse(File) ->
  6.         {ok,Binary} = file:read_file(File),
  7.         {Xml,_} = xmerl_scan:string(binary_to_list(Binary)),
  8.         [[{Element,Value} || #xmlElement{name=Element,content=Value1} <- XmlElem, #xmlText{value=Value} <- Value1] || #xmlElement{content=XmlElem} <- xmerl_xpath:string("//item", Xml)].
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement