Calculadora modo texto

Me encanta hacer calculos chorras, y es realmente comodo hacerlos cuando se dispone de una calculadora de linea de comandos (las calculadoras gráficas tipo las del windows me parecen lentiiisimas). Por ello, me he currado esta tarde esta version perfeccionada de mi calcu, con historico de valores y tal (necesita tener el bc instalado).

#!/usr/bin/perl $linea=1; $token="Arrancando"; push @historico, 0; $param = @ARGV; if ( $param != 0 ) { open (f1,"echo \"$ARGV[0]\" | bc -l |"); $salida=<f1>; close(f1); print "[$linea] "; print $salida; chop $salida; push @historico, $salida; $linea++; } while ($token ne "q") { print "[$linea] "; $token=<STDIN>; chop $token; if ($token eq "") { exit; } $token =~ s/($(\d+))/@historico[$2]/g; open (f1,"echo \"$token\" | bc -l |"); $salida=<f1>; close(f1); $linea++; print "[$linea] "; print $salida; chop $salida; push @historico, $token; push @historico, $salida; $linea++; }

Otras entradas de la web que podrian interesarte:

• (714)  Oct 25   JAVA   Salida en modo texto se mantiene en la misma linea
• (519)  Nov 30   LINUX   Se me ha colgado una consola virtual de modo texto ¿Como la reinicio?
• (393)  Aug 05   PERL   Filtrar lineas de texto repetidas
• (391)  Oct 28   PERL   Generar un numero determinado de ficheros de texto
• (830)  May 28  PERL LINUX ENGLISH  Installing CPAN Perl modules made easy