grammartest.pl

#!/usr/bin/env perl6

use v6;

#use Grammar::Debugger;

grammar TEST {
	token TOP {
		<row>
	}
	token row {
		\[	(<number> | <period> ) ** 0..* \]
	}
	token period {
		\.
	}
	token number {
		'one' | 'two' | 'three' | 'four' | 'five'
	}
};

my %translate =
	'one' => 1,
	'two' => 2,
	'three' => 3,
	'four' => 4,
	'five' => 5,
;

class TEST::Action {
	method TOP($/) {
		$/.make: $<row>.made;
	}
	method row($/) {
		#say $/.perl;
		$/.make: *.ast;
	}
	method number($/) {
		$/.make: %translate{$/.lc};
	}
	method period($/) {
		$/.make: ',';
	}
}

my $string = "[one.two.three.two]";
my $action = TEST::Action.new();
my $output = TEST.parse($string, :actions($action)).ast;
say $output;