Data commit

Task/XML-XPath/Erlang/xml-xpath.erl

@@ -0,0 +1,48 @@
+-module(xml_xpath).
+-include_lib("xmerl/include/xmerl.hrl").
+
+-export([main/0]).
+
+main() ->
+   XMLDocument =
+      "<inventory title=\"OmniCorp Store #45x10^3\">
+        <section name=\"health\">
+          <item upc=\"123456789\" stock=\"12\">
+            <name>Invisibility Cream</name>
+            <price>14.50</price>
+            <description>Makes you invisible</description>
+          </item>
+          <item upc=\"445322344\" stock=\"18\">
+            <name>Levitation Salve</name>
+            <price>23.99</price>
+            <description>Levitate yourself for up to 3 hours per application</description>
+          </item>
+        </section>
+        <section name=\"food\">
+          <item upc=\"485672034\" stock=\"653\">
+            <name>Blork and Freen Instameal</name>
+            <price>4.95</price>
+            <description>A tasty meal in a tablet; just add water</description>
+          </item>
+          <item upc=\"132957764\" stock=\"44\">
+            <name>Grob winglets</name>
+            <price>3.56</price>
+            <description>Tender winglets of Grob. Just add water</description>
+          </item>
+        </section>
+      </inventory>",
+   {Document,_} = xmerl_scan:string(XMLDocument),
+
+   io:format("First item:\n~s\n",
+      [lists:flatten(
+         xmerl:export_simple(
+            [hd(xmerl_xpath:string("//item[1]", Document))],
+            xmerl_xml, [{prolog, ""}]))]),
+
+   io:format("Prices:\n"),
+   [ io:format("~s\n",[Content#xmlText.value])
+      || #xmlElement{content = [Content|_]} <- xmerl_xpath:string("//price", Document)],
+
+   io:format("Names:\n"),
+   [ Content#xmlText.value
+      || #xmlElement{content = [Content|_]} <- xmerl_xpath:string("//name", Document)].