XML/Output: Difference between revisions
→{{header|Perl 6}}: Add a Perl 6 entry
m (→{{header|REXX}}: added/changed comments and whitespace, used a template for the output section.) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 entry) |
||
Line 1,756:
}
print $doc->toString();</lang>
=={{header|Perl 6}}==
{{works with|Rakudo|2018.05}}
<lang perl6>use XML::Writer;
my @students =
[ Q[April], Q[Bubbly: I'm > Tam and <= Emily] ],
[ Q[Tam O'Shanter], Q[Burns: "When chapman billies leave the street ..."] ],
[ Q[Emily], Q[Short & shrift] ]
;
my @lines = map { :Character[:name(.[0]), .[1]] }, @students;
say XML::Writer.serialize( CharacterRemarks => @lines );</lang>
{{out}}
<lang XML><CharacterRemarks><Character name="April">Bubbly: I'm > Tam and <= Emily</Character>
<Character name="Tam O'Shanter">Burns: "When chapman billies leave the street ..."</Character>
<Character name="Emily">Short & shrift</Character></CharacterRemarks></lang>
=={{header|Phix}}==
| |||