diff options
Diffstat (limited to 'Bachelor/Systemprogrammierung in Perl/examples/EXAMPLE2.PL')
| -rw-r--r-- | Bachelor/Systemprogrammierung in Perl/examples/EXAMPLE2.PL | 23 |
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;
|