Help for this page

Select Code to Download


  1. or download this
        for my $k (sort keys %GRAMMAR) {
    
  2. or download this
       push @GRAMMAR, [ $1, $2 ];
    
  3. or download this
        for my $rec (@GRAMMAR) {
            print $rec->[0], "\n";
        }
    
  4. or download this
        next unless /([A-Z]) -> (.*)/;
        $GRAMMAR{$1} = $2;