Christian Kruse: Reguläre Ausdrücke - Ich bin am verzweifeln

Beitrag lesen

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.