Hallo Jörk,
[... Hierarchisches Kathegorien-System ...]
Bau doch einen Baum draus:
sub gen_tree {
my $cat_tree = shift;
my $cats_str = @_;
my $act_node = $cat_tree;
my @cats = split /:/ => $cats_str;
foreach my $cat (@cats) {
$act_node->{$cat} = {} unless exists $act_node->{$cat};
$act_node = $act_node->{$cat};
}
}
Das erstellt dir eine Struktur wie
$VAR1 = {
'CD_Brenner & CDRW_Rekorder' => {
'Philips' => {},
'Pioneer' => {}
},
'CD_Player' => {
'SACD_Player' => {},
'Denon' => {}
}
'DJ_Equipment' => {
'Nadeln & Systeme' => {
'Pickering',
'Stanton',
'Sonstige'
}
}
Ueber einen rekursiven Algorithmus kannst du jetzt ganz
einfach eine Liste von Kategorien erstellen. Das musst du
jetzt aber selber machen.
Gruesse,
CK
Die Wirklichkeit hat weder ein Inneres, noch ein Äußeres, noch ein Zentrum.