add new repoHEADmaster

1 files changed, 49 insertions, 0 deletions

diff --git a/Bachelor/Systemprogrammierung in Perl/examples/EXAMPLE4.PL b/Bachelor/Systemprogrammierung in Perl/examples/EXAMPLE4.PL
new file mode 100644
index 0000000..aa587b5
--- /dev/null
+++ b/Bachelor/Systemprogrammierung in Perl/examples/EXAMPLE4.PL
@@ -0,0 +1,49 @@
+#!/Perl/bin/perl

+use strict;

+use warnings;

+$| = 1; #flush output

+

+# Arrays beginnen immer mit dem @ Zeichen

+# Arrays koennen sofort durch eine Liste in runden Klammern initialisiert

+# werden

+

+my @words = ("Kamel", "Lama", "Auster"); #unser Geheimwort

+my ($name, $guess, $ipass, $correct);

+

+print "Wie heissen Sie? ";

+$name = <STDIN>;

+chomp $name;

+if ( $name eq "gerhard" ) {

+    print "Hallo Gerhard, wie nett daß du da bist!\n";

+} 

+else {

+    print "Hallo $name!\n"; # Standard Gruß

+    print "Wie lautet das Geheimwort? ";

+    $guess = <STDIN>;

+    chomp ( $guess );

+# Skalaren Variablen koennen auch Integer oder

+# oder Float Werte zugewiesen werden

+    $ipass = 0;			

+    $correct = "vielleicht";

+    while ( $correct eq "vielleicht" ) {

+

+# Der Zugriff auf ein Array Element erfolgt indem man den numerischen Index

+# in eckige Klammern schreibt.

+# Das Ergebnis ist ein Skalar, daher das $ Zeichen

+

+	if ( $words[$ipass] eq $guess ) {  #richtig

+	    $correct = "Ja";

+	}

+# der elsif Operator steht statt einem else if

+	elsif ( $ipass < 2 ) { # weiterraten

+	    $ipass = $ipass + 1;

+	}

+	else { # keine weiteren Passwörter

+	    print "Falsch geraten, nochmal. Wie lautet das Geheimwort? ";

+	    $guess = <STDIN>;

+	    chomp $guess;

+	    $ipass = 0;

+	}

+    }

+}

+exit;