Práctica: Postfijo

Escriba un programa que lea una línea conteniendo una expresión en postfijo e imprima su valor. Para simplificar, asumiremos que los únicos terminales en la expresión son números enteros sin signo, sumas, restas, productos y divisiones. Asumiremos también que cualesquiera dos terminales están separados por uno o mas blancos.

Por ejemplo, ante la entrada:

4 5  2 + *

El programa deberá imprimir 28.

Sugerencias:

• Lea la cadena y conviertala en una lista usando split. Recuerde que la expresion regular \s casa con cualquier blanco Puede consultar la tabla en la sección 3.6.

  lhp@nereida:~/Lperl/src$ perl -wde 0
  main::(-e:1):   0
    DB<1> x split /\s+/, "2   3    7 +   * 4 -"
  0  2
  1  3
  2  7
  3  '+'
  4  '*'
  5  4
  6  '-'
  

• La necesidad de separar los terminales mediante blancos se ha hecho pensando en simplificar la labor de detectarlos, de manera que se pueda hacer usando split. ¿Se puede suprimir esta restricción sin complicar excesivamente la detección de terminales?

  La siguiente sesión con el depurador sugiere como hacerlo:

  lhp@nereida:~/Lperl/src$ perl -wde 0
  main::(-e:1):   0
    DB<1> $x = "2 13+2*3-"
    DB<2> @tokens = grep { defined } $x =~ m{\s*(\d+)|([-+*/])\s*}g
    DB<3> x @tokens
  0  2
  1  13
  2  '+'
  3  2
  4  '*'
  5  3
  6  '-'
    DB<4> $x = "6 3/  2*3-"
    DB<5> @tokens = grep { defined } $x =~ m{\s*(\d+)|([-+*/])\s*}g
    DB<6> x @tokens
  0  6
  1  3
  2  '/'
  3  2
  4  '*'
  5  3
  6  '-'
  

  Observe que esta solución puede ser ''excesiva'':

    DB<7> $x = "6 3cc/  2*xx3-"
  
    DB<8> x grep { defined } $x =~ m{\s*(\d+)|([-+*/])\s*}g
  0  6
  1  3
  2  '/'
  3  2
  4  '*'
  5  3
  6  '-'
  

• Utilice una lista auxiliar como pila para la evaluación. Los números se empujan, los operadores binarios extraen dos elementos y empujan el resultado. Compruebe que el operador binario es uno de los esperados ([-+*/]).
• Tenga cuidado de reconocer los números con la expresión regular apropiada. Use el operador =~ si es necesario.
• Recuerde que las expresiones lógicas se evalúan en circuito corto (véase la sección 1.4.1). La función die puede utilizarse para abortar la ejecución de un programa. Observe estos dos ejemplos de uso:

  $op1 = pop @stack or die("Faltan argumentos\n");
  ($x != 0) or die "No se puede dividir por cero!\n";
  

• Utilice la función eval. Esta función recibe una cadena y evalúa la expresión Perl que representa. Vea un ejemplo de uso con el depurador:

    DB<1> $x = '4 + 2'
    DB<2> p $x
  4 + 2
    DB<3> $y = eval($x)
    DB<4> p $y
  6
    DB<5> p eval('3+$y')
  9
  

  Para saber mas sobre la función eval consulte la documentación escribiendo perldoc -f eval.
• Recuerde que * y + son metasímbolos dentro de una expresión regular.
• La variable especial $& almacena la cadena que casó con la última expresión regular usada, $1, $2, etc. contienen las cadenas que casaron con los paréntesis que aparecen en la expresión regular.