Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
|
informatik-buch:programmiersprachen:perl:perl-anfang [2010/10/09 12:56] |
informatik-buch:programmiersprachen:perl:perl-anfang [2010/10/09 12:56] (aktuell) |
||
|---|---|---|---|
| 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> | ||