my $einevariable='Testvariable'; my $nocheine=''; my $undnocheine='Die Letzte'; undef $undnocheine; print "$einevariable\n" if defined ($einevariable); print "$nocheine\n" if defined ($nocheine); print "$undnocheine\n" if defined ($undnocheine); |
@array=(0,1,2,3,4,5); $hash{key}='hash'; print $array[10]."\n" if defined $array[10]; print $hash{notdefined}."\n" if defined $hash{notdefined}; print $array[1]."\n" if defined $array[1]; print $hash{key}."\n" if defined $hash{key}; |
use strict; my @array=(); $array[5]='Ich bin Wert 6'; foreach (@array){ if (defined $_){ print "$_\n"; # und tu nochwas vernünftiges } } |
$skalar='Wert'; print defined $skalar; print $skalar; |
$array[2]='wert'; |
%werte=( 'Hund' => 'bellt', 'Katze' => 'miaut', 'Maus' => 'piept' ); $gesuchtwird='Maus'; $gefunden=0; print "Gibts eine Maus?\n"; foreach (keys %werte){ if ($_ eq $gesuchtwird){$gefunden=1; last;} } if ($gefunden == 1) {print "yo!\n";} else {print "Nö, kenn ich nicht\n"; exit;} print "Wie macht die $gesuchtwird?\n"; print "Die Maus $werte{$gesuchtwird}!\n"; |
%werte=( 'Hund' => 'bellt', 'Katze' => 'miaut', 'Maus' => 'piept' ); $gesuchtwird='Maus'; print "Gibts eine Maus?\n"; if (defined $werte{$gesuchtwird}) {print "yo!\n";} else {print "Nö, kenn ich nicht\n"; exit;} print "Wie macht die $gesuchtwird?\n"; print "Die Maus $werte{$gesuchtwird}!\n"; |