Fehlermeldung in Perl

[Christian Kruse]

Hallo mabck,

#!/usr/bin/perl -w

use strict; fehlt hier

$menue = <<HERE_MENUE;

du meinst sicher my $menue

$eingabe = 0;

du meinst sicher my $eingabe

$wert1 = 0;

du meinst sicher my $wert1

$wert2 = 0;

du meinst sicher my $wert2

$multi = 0;

du meinst sicher my $multi0

$add = 0;

du meinst sicher my $add

$subtra = 0;

du meinst sicher my $subtra

$divid = 0;

du meinst sicher my $divid

WECHSEL:

Pfui.

$eingabe == 1 && do {print "Bitte geben Sie den 1ten Wert ein:\n";

Besser:

if($eingabe == 1) {
  print "Bitte geben Sie den 1. Wert ein:\n";

chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";

Hä? was soll das denn? Übrigens fehlt da eine abschliessende Klammer.

chomp ($wert2 = <STDIN> );
$multi = $wert1 * wert2;
print "\nErgebnis der Multiplikation: $multi\n";
last WECHSEL;};

Besser:
}

$eingabe == 2 && do {print "Bitte geben Sie den 1ten Wert ein:\n";

Besser:
elsif($eingabe == 2) {
  print "Bitte geben Sie den 1. Wert ein:\n";

chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";

Hä? was soll das denn? Übrigens fehlt da eine abschliessende Klammer.

chomp ($wert2 = <STDIN> );
$add = $wert1 + wert2;
print "\nErgebnis der Addition: $add\n";
last WECHSEL;};

Besser:
}

$eingabe == 3 && do {print "Bitte geben Sie den 1ten Wert ein:\n";

Besser:
elsif($eingabe == 3) {
  print "Bitte geben Sie den 1. Wert ein:\n";

chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";

Hä? was soll das denn? Übrigens fehlt da eine abschliessende Klammer.

chomp ($wert2 = <STDIN> );
$subtra = $wert1 - wert2;
print "\nErgebnis der Subtraktion: $subtra\n";
last WECHSEL;};

Besser:
}

$eingabe == 4 && do {print "Bitte geben Sie den 1ten Wert ein:\n";

Besser:
elsif($eingabe == 4) {
  print "Bitte geben Sie den 1. Wert ein:\n";

chomp ($wert1 = <STDIN> );
$eingabe == {print "Bitte geben Sie den 2ten Wert ein:\n";

Hä? was soll das denn? Übrigens fehlt da eine abschliessende Klammer.

chomp ($wert2 = <STDIN> );
$divid = $wert1 / wert2;
print "\nErgebnis der Division: $divid\n";
last WECHSEL;};

Besser:
}

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

Besser:
elsif($eingabe == 5) {
  print "Skript beenden\n";

last WECHSEL;};

Besser:
}

}

Das ist nicht länger nötig.

} while ($eingabe !=5);

Das wiederum ist gut so.

[...]
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

Da steht doch schon, was er von dir will.

Das habe ich jetzt von einem bekommen :-(( Aber ich weiß nicht was ich da machen muss.....

Du solltest Source, den du benutzt, auch verstehen. Was, wenn der Typ ein 'mkfs' oder ein
'format c:' drin versteckt hätte?

guck Dir mal die Zeilen überm chomp an - da fehlt jeweils die }...

Wenn du deinen Fehler weisst, warum postest du dann? Tse, tse, tse.

Grüße,
 CK