Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

@@ Zeile 1: / Zeile 1: @@
+====== Perl-Anfang ======
+<code perl>
+#!/usr/bin/perl
+print "\n\n";
+print "Hallo Welt!\n";
+##@zeilen = `perldoc -u -f atan2`;
+##foreach (@zeilen) {
+##	s/\w<([^>]+)>/\U$1/g;
+##	print;
+##	}
+## Gibt Hallo mit den Anf�rhungszeichen aus.
+##print "`Hallo\n`";
+##Liest Eingaben von der Standardausgabe ein.
+print"Bitte geben Sie etwas ein:";
+$zeichen = <STDIN>;
+print "Das haben Sie eingegeben: $zeichen";
+## Die Eingabe enth�lt ein Newline, da die Eingabe mit Newline beendet wird.
+## Folgende Zeile w�rde die Eingabe ohne Newline einlesen:
+## chomp ($zeichen = <STDIN>);
+## chomp ist auch eine Funktion, die die Zahl der Newlines zur�ckgibt.
+## Kreisberechnungen:
+print "Bitte geben Sie den Radius eines Kreises ein:";
+chomp ($radius = <STDIN>);
+if ($radius >= 0)	{
+	$pi = 3.141592653589793238462643;
+	$umfang = 2*$pi*$radius;
+	$flaecheninhalt = $pi*$radius**2;
+}
+else	{
+	$umfang = 0;
+	$flaecheninhalt = 0;
+}
+print "Der Kreis mit dem Radius $radius hat den \nUmfang $umfang und den \nFl�cheninhalt $flaecheninhalt.\n";
+## while - Schleifen
+print "Ich z�hle jetzt von 0 bis 10:\n";
+$zaehler = 0;
+while ($zaehler <= 10) {
+	print "$zaehler";
+	if ($zaehler<10) { print ", "; }
+	else { print ".\n"; }
+	$zaehler += 1;
+}
+## Vielfache Ausgabe mit dem x - Operator:
+print "Text" x 3 . "\n";
+</code>