Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
add
mul
print
  2. or download this
    root@swill ~/PerlMonks
$ ./stack_to_infix2.pl
...

root@swill ~/PerlMonks
$
  3. or download this
        my $op = pop @stack;
    my ($operand, $prec) = ($$op[0], $$op[1]);