23 lines
807 B
Erlang
23 lines
807 B
Erlang
-module( xml_input ).
|
|
|
|
-export( [task/0] ).
|
|
|
|
-include_lib("xmerl/include/xmerl.hrl").
|
|
|
|
task() ->
|
|
{XML, []} = xmerl_scan:string( xml(), [{encoding, "iso-10646-utf-1"}] ),
|
|
Attributes = lists:flatten( [X || #xmlElement{name='Student', attributes=X} <- XML#xmlElement.content] ),
|
|
[io:fwrite("~s~n", [X]) || #xmlAttribute{name='Name', value=X} <- Attributes].
|
|
|
|
|
|
|
|
xml() -> "<Students>
|
|
<Student Name=\"April\" Gender=\"F\" DateOfBirth=\"1989-01-02\" />
|
|
<Student Name=\"Bob\" Gender=\"M\" DateOfBirth=\"1990-03-04\" />
|
|
<Student Name=\"Chad\" Gender=\"M\" DateOfBirth=\"1991-05-06\" />
|
|
<Student Name=\"Dave\" Gender=\"M\" DateOfBirth=\"1992-07-08\">
|
|
<Pet Type=\"dog\" Name=\"Rover\" />
|
|
</Student>
|
|
<Student DateOfBirth=\"1993-09-10\" Gender=\"F\" Name=\"Émily\" />
|
|
</Students>".
|