#!/usr/local/bin/perl
#Perl Rechner
#MauriZze

use strict;
use warnings;

my $zahl1=1;
my $zahl2=1;
my $f=1;
my $ergebnis=0;

print q {
Willkommen zum Perl Rechner,
er unter stützt Plus, Minus, Multiplizieren und Geteilt.
Zunächst gibst du deine erste Zahl ein,
dann die Funktion:
1 = Plus, 2 = Minus, 3 = Multiplizieren und 4 = Geteilt
};
print "\n";
print "Deine erste Zahl bitte!";
print "\n";
chomp($zahl1 = <STDIN>);
print "\n";
print "Die gewünschte Funktion";
print "\n";
chomp($f = <STDIN>);
print "\n";
print "Deine zweite Zahl bitte";
print "\n";
chomp($zahl2 = <STDIN>);
print "\n";


if($f==1)
{
 $erbenis=addiere($zahl1,$zahl2);
}
elsif($f==2)
{
 $erbenis=subtrahiere($zahl1,$zahl2);
}
elsif($f==3)
{
  $erbenis=multipliziere($zahl1,$zahl2);
}
elsif($f==4)
{
  $erbenis=dividiere($zahl1,$zahl2);
}
else
{
 print "Keine erlaubte Aktion!\n";
}
print "Ergebnis: $ergebnis\n";

##############################
##############################

sub addiere
{
 my ($wert1,$wert2)=@_;
 return $wert1 + $wert2;
}

sub subtrahiere
{
 my ($wert1, $wert2)=@_;
 return $wert1 - $wert2;
}

sub multipliziere
{
 my ($wert1, $wert2)=@_;
 return $wert1 * $wert2;
}

sub dividiere
{
 my ($wert1, $wert2)=@_;
 return $wert1 * $wert2;
}