In komplexer Datenstruktur suchen

[Patrick Andrieu]

Re!

Wenn wir die Aufgabe wie folgt stellen:

$someone = 'marge';

Finde heraus, wer/was das ist (Familie: simpsons, Role: Frau), und suche dann alle weiteren Frauen der weiteren Familien (z.B: weitere Frauen sind: bei Flintstones: Wilma; bei Jetsons: Jane; bei others: N/A, bei blubb: N/A).

dann stehe ich schon auf dem Schlauch ;)

Doch nicht:

        my $someone = 'marge';  
        my $family;  
 for $family (keys %TV) {  
     my $rec = $TV{$family};   # temporary pointer  
     for my $person ( @{$rec->{members}} ) {  
         if ($person->{name} eq $someone) {  
                    my $role = $person->{role};  
                    print "$someone is $person->{role} in family: $family", $/;  
                    print "Other ", $role, "s are:", $/;  
                    find_roles($role);  
             #push @kids, $person;  
         }  
     }  
        }  
  
        sub find_roles {  
           my $role = shift;  
          # print $role;  
    for $family (keys %TV) {  
     my $rec = $TV{$family};   # temporary pointer  
         for my $person ( @{$rec->{members}} ) {  
                    if ($person->{role} eq $role) {  
                        print "$person->{name} in family: $family", $/ unless $person->{name} eq $someone;  
                    }  
                }  
           }  
        }

^Z
marge is wife in family: simpsons
Other wifes are:
jane in family: jetsons
wilma in family: flintstones

Ein bisschen in Programmieren mit Perl stöbern hilft, Kopfnüsse zu knacken...

Viele Grüße aus Frankfurt/Main,
Patrick