From 33613a85afc4b1481367fbe92a17ee59c240250b Mon Sep 17 00:00:00 2001
From: Sven Eisenhauer <sven@sven-eisenhauer.net>
Date: Fri, 10 Nov 2023 15:11:48 +0100
Subject: add new repo

---
 .../Systemprogrammierung in Perl/examples/example1.pl  | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 Bachelor/Systemprogrammierung in Perl/examples/example1.pl

(limited to 'Bachelor/Systemprogrammierung in Perl/examples/example1.pl')

diff --git a/Bachelor/Systemprogrammierung in Perl/examples/example1.pl b/Bachelor/Systemprogrammierung in Perl/examples/example1.pl
new file mode 100644
index 0000000..1b6ccc8
--- /dev/null
+++ b/Bachelor/Systemprogrammierung in Perl/examples/example1.pl	
@@ -0,0 +1,18 @@
+#!/Perl/bin/perl
+
+use strict;
+use warnings;
+$| = 1; #flush output
+my $name;
+
+print "Wie heissen Sie? ";
+
+# der <> Operator dient zum Lesen von Datenströmen (Files oder SDTIN) 
+$name = <STDIN>;
+
+# Der Operator chomp entfernt
+# entfernt das Zeilenende (\n unter UNIX, \r\n unter Windows)
+chomp $name;			
+
+print "Hallo $name! \n";
+exit 0;
-- 
cgit v1.2.3