exists - #70065 (Allgemeines zu Perl)

Froschpopo

2006-09-19 20:32

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Erstmal: Danke!

Ich habe ein gemischtes Hash:

Code: (dl )

my %hash = (
           'key1'       =>     [\%foobar, 1],
           'key2'       =>     %foo
);

Nun will ich eine Fallunterscheidung konstruieren:

Code: (dl )

my $hashref = \$hash{key2};

if (defined $hashref->[1]) {
        $hashref->[0]->(\@args); # führt Subref aus, wenn Index 1 gleich wahr ist.
} else {
        $hashref->(@args);
}

im obigen Beispiel müsste also der ELSE-Block ausgeführt werden, da es im Wert von key2 keine Arrayref mit einem Index 1 gibt.\n\n