Help for this page

Select Code to Download


  1. or download this
    use AnyLanguage;
    my @lexicon = [ ( REGEXP => regex1, ACTION => sub { code1 } ),
    ...
    while ( my $input = ... ) { 
        $MyLanguage -> dispatch{ $input };
    }
    
  2. or download this
    package AnyLanguage;
    sub new {
    ...
        return &{$aref -> [$#$aref ] -> { ACTION }};
    }
    1;