Was habe ich falsch gemacht ?

[mabck]

Hallo :-)

ich habe hier ein Perl Skript aber leider geht das nicght ich finde den Fehler aber auch nicht. Kann von euch das einer mal ansehen ?

LG mabck

______________________________

Hier kommt das Skript:
_____________________________

#!/usr/bin/perl -w

$menue = <<HERE_MENUE;

Multiplizieren  <1>
Addieren  <2>
Subtrahieren  <3>
Dividieren  <4>
Beenden   <5>

HERE_MENUE

$eingabe = 0;
$wert1 = 0;
$wert2 = 0;
$multi = 0;
$add = 0;
$subtra = 0;
$divid = 0;

do
{

print $menue;
chomp ($eingabe = <STDIN>);

WECHSEL:

{
$eingabe == 1 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN>);
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN>);
$multi = $wert1 * wert2;
print "\nErgebnis der Multiplikation: $multi\n";
last WECHSEL;};

$eingabe == 2 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN>);
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN>);
$add = $wert1 + wert2;
print "\nErgebnis der Addition: $add\n";
last WECHSEL;};

$eingabe == 3 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN>);
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN>);
$subtra = $wert1 - wert2;
print "\nErgebnis der Subtraktion: $subtra\n";
last WECHSEL;};

$eingabe == 4 && do {print "Bitte geben Sie den 1ten Wert ein:\n";
chomp ($wert1 = <STDIN>);
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";
chomp ($wert2 = <STDIN>);
$divid = $wert1 / wert2;
print "\nErgebnis der Division: $divid\n";
last WECHSEL;};

$eingabe == 5 && do {print "Skript beenden\n";
last WECHSEL;};
}

} while ($eingabe !=5);

______________________________

Ende das Skript:
_____________________________

[dbenzhuser]

Hallo :-)

ich kann nicht laufen, leider geht das nicght ich finde den Fehler aber auch nicht. Kann von euch das einer mal ansehen ?

LG dbenzhuser

______________________________

Hier kommt der Schuh:
_____________________________

<img src="http://home.arcor.de/dbenzhuser/daten/schuh.jpg" border="0" alt="">
______________________________

Ende der Schuh:
_____________________________

Was ich damit sagen will?
Vielleicht wäre eine Beschreibung, was das Script genau tun sollte und was genau es davon nicht/falsch tut, hilfreich für die Lösung deines Problems.

Tschö,
dbenzhuser

[Bio]

Sup!

Tja, anscheinend soll das Skript einem bei den Grundrechenarten helfen... aber ohne Fehlerbeschreibung finde ich den Fehler so auch nicht.

Gruesse,

Bio

[mabck]

Hallo und guten Abend ihr beid :-)

er meckert mir immer das zweite chomp jeweils an.

[Bio]

Sup!

Und was sagt er so?

Gruesse,

Bio

[mabck]

Hallo,

diese Fehlermeldung kommt bei mir:

Sybtax  error C:\3.pl line 38, near " chomp "

Sybtax  error C:\3.pl line 46, near " chomp "

Sybtax  error C:\3.pl line 54, near " chomp "

Sybtax  error C:\3.pl line 62, near " chomp "

Missing right curly or aquare bracket at  c:\3.pl  line 71, at  end of line Execution of C:\3.pl aborted due to compilation erros

So das ist nun die ganze Meldung. Leider weiß ich aber nicht an was das liegt :-((

LG mabck

[Bio]

Sup!

Nun, in Perl bilden {} einen Block.

In Deinem Skript gibt es mehr { als }.
Du musst wohl welche vergessen oder gelöscht haben.

Da das Skript einigermassen "Kraut und Rüben" ist (ich würde sagen, es ist entweder sehr tricky und Du hast es kaputt gemacht, oder Du hast es einfach nur kaputt gemacht und es war auch vorher schon eher dirty als tricky) und Du anscheinend nicht viel Ahnung von Perl hast, würde ich einen Rewrite vorschlagen.

Gruesse,

Bio