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