Help for this page

Select Code to Download


  1. or download this
    $ perl parser.pl
16/4*2
...
                   }
                 ]
        }
  2. or download this
    my $precedence=[qr/(?:&&|\|\|)/,qr/(?:\+|-)/,qr/(?:\/|\*)/];
  3. or download this
    {
          '*' => [
...
                   '2'
                 ]
        }
  4. or download this
    my $precedence=[qr/(?:\/|\*)/,qr/(?:\+|-)/,qr/&&/,qr/|\|\|/];