XML/Input: Difference between revisions
m
→{{header|Perl}}: need 'utf8' pragma for wide character, added output
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: need 'utf8' pragma for wide character, added output) |
|||
Line 1,923:
=={{header|Perl}}==
{{libheader|XML::Simple}}
<lang perl>use
use XML::Simple;
my $ref = XMLin('<Students>
Line 1,936 ⟶ 1,937:
print join( "\n", map { $_->{'Name'} } @{$ref->{'Student'}});</lang>
{{out}}
<pre>April
Bob
Chad
Dave
Émily</pre>
=={{header|Perl 6}}==
| |||