Hallo zusammen,
kann mir bitte jemand helfen.
Ich soll ein JavaScript in Perl übersetzen, aber ich bekomme es einfach nicht hin.
Vielen Dank :-O)

<script language="JavaScript">
<!--
a = window.prompt ("Geben Sie eine Zahl ein","");
b = 2;

if (a%b == 0) {
document.write("Das Ergebnis der Division von " + a + " durch 2
ergibt eine Nichtkommazahl.");
} else {
document.write("Das Ergebnis der Division von " + a + " durch 2
ergibt eine Kommazahl.");
}
// -->
</script>

Gruß
Nicki271

mfg Dirk

Nicki271+2008-06-23 07:29:40--

Ich soll ein JavaScript in Perl übersetzen, aber ich bekomme es einfach nicht hin.

einfach sagen, womit du probleme hast, und was du schon hast, sonst sieht das immer so
nach "mach mir meine hausaufgaben, ich bin zu faul" aus.

Wenn du Eingaben von der Kommandozeile lesen willst, dann schau mal in http://perldoc.perl.org/perlop.html#I%2FO-Operator... - wenn du ein Eingabe-Fenster benötigst wirst du dich mit TK beschäftigen müssen.

Gruß,
Ronnie

pq+2008-06-23 09:17:56--

Nicki271+2008-06-23 07:29:40--

Ich soll ein JavaScript in Perl übersetzen, aber ich bekomme es einfach nicht hin.

einfach sagen, womit du probleme hast, und was du schon hast, sonst sieht das immer so
nach "mach mir meine hausaufgaben, ich bin zu faul" aus.

Hallo pq,
du hast schon recht. Hier mein Versuch:
#!/usr/bin/perl
$input = <STDIN>;

print "Geben Sie eine Zahl ein : \n";

b = 2;

if ("a" / "b" = 0)
{
print "Das Ergebnis der Division von a durch 2 ergibt eine Nichtkommazahl.";
}

else {

print "Das Ergebnis der Division von a durch 2 ergibt eine Kommazahl.";
}

Ich bin nicht zu faul, soll auch nicht so aussehen, aber ich weiß nicht was ich falsch mache...

Gast+2008-06-24 06:43:01--

$input = <STDIN>;

print "Geben Sie eine Zahl ein : \n";

* Du solltest use strict verwenden
* Diese beiden Zeilen solltest Du tauschen, sonst kommt die Aufforderung nachdem der User etwas eingegeben haben muss.

Quote

b = 2;

Variablen haben in Perl ein "Sigil", mit dem angezeigt wird, um was es sich handelt. "Einfache" Variablen (sog. Skalare) haben ein "$" vorne angestellt, wie Du es bei $input gemacht hast.

Quote

if ("a" / "b" = 0)

Hier versuchst Du den Buchstaben a durch den Buchstaben b zu teilen. Vermutlich nicht ganz was Du willst. Und dann veruchst Du diesem Ausdruck auch noch den Wert 0 zuzuweisen.

Auch hier wieder: Variablen haben Sigils!

Wenn Du überprüfen willst, ob etwas durch zwei teilbar ist (und das ohne "Rest"), dann musst Du den Modulo-Operator nehmen (%). Und zur Überprüfung musst Du einen Vergleichsoperator nehmen (hier: ==).

Also:

Weiterhin ist in $a nix gespeichert, da Du weiter oben $input verwendet hast.

Hallo Renee,
danke, das ist doch mal eine Erklärung...

ich bin ja schon mal froh, dass mein "lösungsversuch" nicht völllig falsch ist...
Ich habe mit Perl noch nicht wirklich was zu tun gehabt, deshalb ist es noch schwierig für mich das alles nachzuvollziehen.
Aber deine Erklärungen waren schon hilfreich :-)

Also in der Aufgabenstellung heißt es dass man eine Zahl eingeben soll und dann vom script geprüft wird ob die Division durch zwei eine grade oder ungrade Zahl ergibt.

Es gibt 5 aufgaben und zwei habe ich immerhin schon alleine lösen können. Das lässt mich hoffen, das es auch bei Perl irgendwann "klick" macht...

Hallo Zusammen,

es will einfach nicht funktionieren.

Kann mir bitte nochmal jemand auf die Sprünge helfen?

Vielen Dank :-)

Gruß Nicki

Was heißt "funktioniert nicht"?? Gibt es Fehlermeldungen? Wie sieht der Code aus? Was soll der Code machen, was macht er stattdessen?

Fragen über Fragen - und meine Glaskugel ist zur Reparatur ;)

Sorry,
ich habe versucht das if( $a % $b == 0 ) was du geschrieben hast mit einzubauen, aber jetzt kommt die Fehlermeldung:
Illegal modulus zero at 20535_2.pl line 7

Der ganze Text sieht jetzt so aus:

1 #!/usr/bin/perl
2
3 print "Geben Sie eine Zahl ein","";
4
5 $Zahl /= 2;
6
7 if( $a % $b == 0 )
8 {
9 print"Das Ergebnis der Division von " + a + " durch 2
10 ergibt eine Nichtkommazahl.";
11 } else {
12 print "Das Ergebnis der Division von " + a + " durch 2
13 ergibt eine Kommazahl."; }

irgendwie habe ich wohl echt ein Brett vor dem Kopf - tut mir leid. :-((