#!/usr/bin/perl
#rechner.pl -- by Ubuntu-Forum
 
use strict;
use warnings;
 
my $wert1 = $ARGV[0];
my $operator = $ARGV[1];
my $wert2 = $ARGV[2];
my $ergebnis;
 
if($operator eq '+')
{
   $ergebnis = $wert1 + $wert2;
   print "\tDas Ergebnis ist: $ergebnis\n";
}
elsif($operator eq '-')
{
   $ergebnis = $wert1 - $wert2;
   print "\tDas Ergebnis ist: $ergebnis\n";
}
elsif($operator eq '*')
{
   $ergebnis = $wert1 * $wert2;
   print "\tDas Ergebnis ist: $ergebnis\n";
}
elsif($operator eq '/')
{
  if($wert2 != '0')
  {
     $ergebnis = $wert1 / $wert2;
     print "\tDas Ergebnis ist: $ergebnis\n";
  }
  else
  {
   print "\tDie Division durch 0 ist nicht erlaubt!\n";
  }
}
else
{
   print "Sie haben einen ungueltigen Operator eingegeben!\n";
}