[LinuxOB] Perl Problem

[Udo Neuenbauer]

Hi

On May 14, 2004, at 3:12 PM, Sven Borkert wrote:

> 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.

Schon mal mit Referenzen probiert?

#!/usr/bin/perl -w
use strict;

my %input = (
	eins => 1,
	zwei => 2,
	);
my @wanted = qw/eins zwei drei/;

print &valid_input(\%input, \@wanted);

sub valid_input {
	my ($input, $wanted) = @_;
	my @missing;
	for (@wanted){
		push @missing, $_ unless defined $input{$_};
	}
	return @missing;
};

Oder habe ich dich falsch verstanden?

Udo