====== 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>