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

Reply via email to