blob: 1b6ccc81cfe3593d1e3194983703cb66443c2cf5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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;
|
