vCard

gistfile1.txt

use v6;

grammar Vcard::Grammar {
    rule TOP {
        <begin>
        <version>
        <property> **
        <end>
    }
    rule version {
        'VERSION' ':' <number>
    }
    rule property {
        <key> ':' <value>
    }
    token number {
        <[0..9]>+ '.' <[0..9]>+
    }
    token key {
        <-[:]>+
    }
    token value {
        <-[:]>+
    }
    token begin {
        'BEGIN:VCARD'
    }
    token end {
        'END:VCARD'
    }
}

# test the parser
my $vcard = Q{
BEGIN:VCARD
VERSION:3.0
N:Adrian White
END:VCARD
};

my $match = Vcard::Grammar.parse($vcard);
if $match {
    say 'Parsed vCard (ver ' ~ $match<version><number> ~ '):';

    for $match<property> -> $p {
        say $p<key>;
        say $p<value>;
    }
}
else {
    say "Failed to parse vCard";
}