add new repoHEADmaster

1 files changed, 18 insertions, 0 deletions

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;