JavaScript in Perl übersetzen - #119034 (Allgemeines zu Perl)

nepos

2009-02-20 12:08

User since
2005-08-17
1420 Artikel
BenutzerIn

Code (perl): (dl )

if( $zahl_a%$zahl_b == 0 )
  {
print"Das Ergebnis der Division von " + a + "
               ergibt eine Nichtkommazahl.";
} else {
print "Das Ergebnis der Division von " + a + " durch 2
               ergibt eine Kommazahl."; }

Das klappt so nicht ganz wie gewollt:

Code: (dl )

perl -cw test.pl
Bareword "a" not allowed while "strict subs" in use at test.pl line 14.
Bareword "a" not allowed while "strict subs" in use at test.pl line 18.
test.pl had compilation errors.

Was du eigentlich willst ist:

Code (perl): (dl )

print "Das Ergebnis der Division von $zahl_a durch 2 ergibt eine Nichtkommazahl.\n";

Beim zweiten print dann analog. Einfache Skalare kannst du direkt in "" schreiben und Perl fügt den Wert dann ein.

Wenn du wirklich Zeichenketten aneinander hängen willst, dann geht das in Perl nicht mit + sondern mit .:

Code (perl): (dl )

my $string = "Das ist der erste Teil." . "Und hier kommt der Rest" . "\n";