Forum programmazione

[_Andy_]

ecco a voi JAPC(nome inventato durante la scrittura di questo post)
leggera ma efficente

Code: Select all

#!/usr/bin/perl
#Nome: calcolatrice
#Autore: Andy
#
#Semplice calcolatrice che sfrutta le espressioni regolari per capire quale tipo di operazione volete eseguire
#
if (!$ARGV[0]) {
   print "Inserisci l'operazione: ";
   $operazione=<STDIN>;
} else {
   $operazione=$ARGV[0];
};
chomp($operazione);
if ($operazione =~ /^(\d+?)(.)(\d+?)$/ ) {
   $primo = $1;
   $secondo = $3;
   $operatore = $2;
   SWITCH: {
      $risultato = $primo+$secondo,  last SWITCH if $operatore eq '+';
      $risultato = $primo-$secondo,  last SWITCH if $operatore eq '-';
      $risultato = $primo*$secondo,  last SWITCH if $operatore eq '*';
      $risultato = $primo/$secondo,  last SWITCH if $operatore eq '/';
      $errore=1;
   };
   $out="\nIl risultato dell'operazione $operazione e':\n\n\t\t$primo $operatore $secondo = $risultato\n\n";
   $errore!=1 ? print $out : print "\nOperatore non valido.\n\n";
} else {
   print "Controllare la sintassi. Es: 555+333\n";
}

[k8]

wow