Leser: 18
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
#! /opt/bin/perl my $login="hallo"; my %ALL={}; if ($ALL{$login}) { print "a drinne $login\n"; } else { print "a nicht drinne $login\n"; } if ($ALL{$login}{"aktiviert"} ne "") { print ""; } if ($ALL{$login}) { print "c drinne $login\n"; } else { print "c nicht drinne - $login\n"; }
if ($ALL{$login}{"aktiviert"} ne "") { print ""; }
print "" if $ALL{$login}{aktiviert} ne "";