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