Parsing von BNF - #72292 (Allgemeines zu Perl)

weismat

2006-12-13 21:19

User since
2003-08-18
142 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

use strict;
use BNF;
my $test=BNF::new("{key1={key2={key3=1234}}}");
print $test->get_key('key1')->get_key('key2')->get_key('key3');
exit;

Liefert 123 anstatt 1234!