[LinuxOB] Perl Problem

[Sven Borkert]

Hallo Liste,

hab hier eine kleine Perlfunktion geschrieben. Die soll 1 Hash und einen
Array übergeben krigen und soll dann gucken ob alle Keys die im Array
angebegen sind im Hash auch definiert sind. Alle Keys die im Hash fehlen
sollen in einem extra Array zurueckgegeben werden. Aber irgendwie
funktioniert die nicht, es kommt nie etwas zurueck, ich find den Fehler
nicht. Vielleicht sieht ja einer von euch mehr.

sub valid_input {
        my %input = shift;
        my @wanted = shift;
        my @missing;
        foreach my $key (@wanted) {
                if (not defined($input{$key})){
                        push (@missing, $key);
                        };
                };
        return @missing;
        };