I've written this code:
use v6;
my $file =3D open "us_foreign_assistance.xml";
for $file.lines -> $line {
extract($line);
}
sub extract($line) {
if $line ~~ m/ \< (\w+) \> / {
say $/[0];
}
}
The xml file contains:
< ?xml version=3D"1.0" encoding=3D"UTF-8" standalone=3D"yes"?>
< website>http://gbk.eads.usaidallnet.gov/data/detailed.html</website>
< ForeignAssistance>
<ForeignAssistanceRow>
<AssistanceType>Economic</AssistanceType>
<RecipientCountry>Afghanistan</RecipientCountry>
<ProgramName>Child Survival and Health</ProgramName>
ecc. ecc.
I expected this output:
website
ForeignAssistance
ForeignAssistanceRow
AssistanceType
RecipientCountry
ProgramName
but the output was:
└website┐
└ForeignAssistance┐
└ForeignAssistanceRow┐
└AssistanceType┐
└RecipientCountry┐
└ProgramName┐
Could someone explain me where I go wrong?
Thanks and sorry for my bad english,
Massimo