Codice:
#!/usr/local/bin/perl
$numero1= $ARGV[0] || "\nerror\nusage:perl $0numero1 operazione numero2\n\nexample: perl calcolatrice.pl 56 * 67\n\n";
$operazione= $ARGV[1] || "\nerror\nusage:perl $0 numero1 operazione numero2\n\nexample: perl calcolatrice.pl 56 * 67\n\n";
$numero2= $ARGV[2] || "\nerror\nusage:perl $0 numero1 operazione numero2\n\nexample: perl calcolatrice.pl 56 * 67\n\n";
if ($operazione=="+")
{
$risultato= $numero1 + $numero2;
print "\n\n$risultato\n\n";
}
elsif ($operazione=="-")
{
$risultato = $numero1 - $numero2;
print "\n\n$risultato\n\n";
}
elsif ($operazione=="x")
{
$risultato = $numero1 * $numero2;
print "\n\n$risultato\n\n";
}
elsif ($operazione=="/")
{
$risultato = $numero1 - $numero2;
print "\n\n$risultato\n\n";
}