Por
Saiyine
el 2003-12-29 00:00:00 - Secciones: - Enlace permanente: 389
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:
. . .
. . .
. . .
. . .
Varios ejemplos de lo que buscaban visitantes recientes:
. . .
Página web ©2001-2010 Saiyine generada en s, con 4639611 visitas en total, hoy (de un total de 0 previstas).
. . .