Thread JavaScript in Perl übersetzen (52 answers)
Opened by Nicki271 at 2008-06-23 09:29

Nicki271
 2009-02-20 16:34
#119045 #119045
User since
2008-06-23
26 Artikel
BenutzerIn
[default_avatar]
Die nächste Aufgabe lautet:

Wenn der Inhalt der Variable "income" kleiner ist als 300, dann drucke "Mann das ist aber nicht grade viel Verdienst." Wenn der Inhalt der Variable "income" zwischen 300 und 100 liegt, dann drucke "Dein Verdienst schein ordentlich zu sein." Und wenn der Inhalt der Variable "income" über 1001 liegt dann drucke "Ey, kannst Du mir was leihen?"

Meine Lösung lautet:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

use strict;
use warnings;

print "Geben Sie Ihren Verdienst ein:\n";

my $income = <STDIN>;
chomp($income);

if ($income < 300)
{
print "Mann das ist aber nicht gerade viel Verdienst.\n";}

elsif ($income >= 300 <=> 1000)
{
print "Dein Verdienst scheint ordentlich zu sein.\n";}

elsif ($income > 1001)
{
print "Ey, kannst du mir was leihen?\n";}

Das funktioniert auch - fast - denn wenn ich z.B. 2000 eingebe, dann kommt trotzdem die Antwort: Dein Verdienst scheint ordentlich zu sein.

Kann mir bitte jemand sagen, wo der Fehler liegt?

View full thread JavaScript in Perl übersetzen