Unrecognized character \xC3; marked by <-- HERE after $l<-- HERE near column 3 at Volumen.pl line 4.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# Dieses Script berechnet das Volumen eines Quaders...
print "Bitte gib die Länge des Quaders an...";
$länge = STDIN
chomp ($länge);
print "Bitte gib die Höhe des Quaders ein...";
$höhe = STDIN
chomp($höhe);
print "Bitte geb die Tiefe des Quaders ein...";
$tiefe = STDIN
chomp($tiefe);
$ergebnis = $länge*$höhe*$tiefe;
print "Das Volumen des Quaders beträgt $ergebnis.;
QuoteGenau, und für Dateinamen auch nur 8 Zeichen plus ...
2011-10-27T12:22:03 juliCode: (dl )1
2
3
4
5
6
7
8print "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.;
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
use warnings; use strict; # Dieses Script berechnet das Volumen eines Quaders... $| = 1; # print sofort auf Konsole ausführen 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";