2011-10-27T12:22:03
juli
print "Bitte gib die Länge des Quaders an...";
$länge = STDIN
chomp ($länge);
# ...
$ergebnis = $länge*$höhe*$tiefe;
print "Das Volumen des Quaders beträgt $ergebnis.;
Hi, abgesehen von der Umlautfrage :) musst Du:
1. STDIN in <> packen
2. Programmzeilen mit Semikolon beenden
3. strings auch abschließen ("...")
4. DRINGEND use warnings; use strict; verwenden
5. unbedingt Punkt 4. beachten
z.B.:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
use warnings;
use strict;
$| = 1;
my ($laenge, $hoehe, $tiefe, $ergebnis);
print "Bitte gib die Länge des Quaders an ... ";
chomp($laenge = <STDIN>);
print "Bitte gib die Höhe des Quaders ein ... ";
chomp($hoehe = <STDIN>);
print "Bitte geb die Tiefe des Quaders ein ... ";
chomp($tiefe = <STDIN>);
$ergebnis = $laenge * $hoehe * $tiefe;
print "Das Volumen des Quaders beträgt $ergebnis.\n";
Gruß FIFO
Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"