Thread Geldautomat von Perl 6 zu Perl 5 (7 answers)
Opened by Tobi at 2016-02-19 13:58

guest Tobi
 2016-02-19 15:01
#183937 #183937
hab jetzt das hier
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
my $pin = 1234;
my $guthaben = 655.36;

say "Geben Sie ihre PIN ein:";
my $pin_eingabe = <STDIN>

if $pin == $pin_eingabe {
print "Geben Sie den Betrag ein, den Sie abheben wollen:\n";
my $auszahlung = <STDIN>
if ($auszahlung <= $guthaben) {
say "Nehmen Sie die $auszahlung Euro mit...";
$guthaben = $guthaben - $auszahlung;
} else {
print "So viel haben Sie nicht auf dem Konto\n";
}
} else {
say "PIN falsch, Karte wird einbehalten";
}


bekomme dann aber folgende fehler angezeigt:
Code: (dl )
1
2
3
4
5
6
7
8
9
String found where operator expected at geldautomat.pl line 4, near "say "Geben Sie ihre PIN ein:""
(Do you need to predeclare say?)
String found where operator expected at geldautomat.pl line 11, near "say "Nehmen Sie die $auszahlung Euro mit...""
(Do you need to predeclare say?)
String found where operator expected at geldautomat.pl line 17, near "say "PIN falsch, Karte wird einbehalten""
(Do you need to predeclare say?)
syntax error at geldautomat.pl line 4, near "say "Geben Sie ihre PIN ein:""
syntax error at geldautomat.pl line 9, near "my "
syntax error at geldautomat.pl line 13, near "}"

weiƟ nicht wies weiter geht..
Last edited: 2016-02-19 15:14:08 +0100 (CET)

View full thread Geldautomat von Perl 6 zu Perl 5