grammertest_attribute.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 {

	has Str $!rowstr = '';

	method TOP($/) {
		$/.make: $<row>.made;
		#say $<row>;
	}
	method row($/) {
			$/.make: ~$!rowstr;
			$!rowstr = '';
	}
	method number($/) {
		$!rowstr = $!rowstr ~ %translate{$/.lc};
	}
	method period($/) {
		$!rowstr = $!rowstr ~ ','
	}
}

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