add new repoHEADmaster

1 files changed, 23 insertions, 0 deletions

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

+use strict;

+use warnings;

+

+$| = 1; #flush output

+

+my $name;

+print "Wie heissen Sie? ";

+$name = <STDIN>;

+chomp $name;

+

+# Der Vergleich von Strings erfolgt durch den eq

+# Operator. 

+# PERL kennt wie die meisten Programmiersprachen die if-else Konstruktion

+# und Bloecke mit geschweiften Klammern

+

+if ( $name eq "gerhard" ) {

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

+} 

+else {

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

+}

+exit;