|Think about Loose Coupling|
Re^2: Operator Precedence Parserby Rhandom (Curate)
|on Jun 12, 2006 at 13:03 UTC||Need Help??|
You can add arbitrary entries to the $OPERATORS table and then use the built in functions to rebuild the global qr's helping in the parsing.
The parse_expr method takes a reference to a string (which it will consume) and returns a parsed optree.
The play_expr method takes the optree and actually executes it.
The parser allows for TT2 style nested variables, function calls, number, double and single quoted strings, arrays and hashes. It also has proper precedence and associativity parsing.
The entry in the $OPERATORS table should contain the following:
It isn't entirely general as the variable names are TT2'ish - but it certainly could be used in other applications.
my @a=qw(random brilliant braindead); print $a[rand(@a)];