#! /usr/bin/perl -w
################################## Taschenrechner ################################
#                                                                                #
#Programmierer: Max Florian                                                      #
#Unterstützung: Benda Franz                                                     #
#                                                                                #
#Programm: Dies ist ein einfacher Taschenrechner der die vier Grundrechenarten   #
#       beherscht. Desweiteren war die Aufgabe, dass der Rechner Punkt vor          #
#       Strich und negative Zahlen beachtet. Zur Sicherheit soll eine               #
#       Fehlermeldung erscheinen sollte eine ungueltige Ziffer eingeben werden.     #
#                                                                                #
##################################################################################

use strict;
use warnings;

#Ueberpruefen der Usereingaben
sub eingabepruef
  {
    my $usreingabe = $_[0];
    if($usreingabe !~ /^[\d+\+\-\*\/\(\)]+$/)
     {
       print "Fehler! Sie haben einen oder mehrere Buchstaben verwendet\n";
       exit;
     }
  }


#Hauptprogramm
sub main
  {
    #Variablendefinition
    my $usreingabe = "0";                   #Speichert die eingebene Rechnung
    my $Ergebnis = "0";                     #Zeigt ausgerechnetes Ergebnis an

    #Usereingaben werden gespeichert
    print "Geben sie ihre Berechung ein:\n";
    chomp ($usreingabe = <STDIN>);


    #Richtige Usereingaben (keine Sondereingaben)?
     &eingabepruef($usreingabe);


    #Berechnung der Eingaben
    #Zerlegen des Strings
    #
    #$usreingabe =~ /^(\d+\.?\d*)(d+\.?\[\d+\+\-\*\/]{1})(\d*)([\d+\+\-\*\/]{1})(\d+\.?\d*)$/


    print "Ergebnis:    $usreingabe\n";


   }
main();
exit(0);

perldoc perlfunc