Gibt es ein Modul, um einfach mit verschachtelten Listen zu arbeiten? - #122700 (Allgemeines zu Perl)

neniro

2009-06-28 12:49

User since
2008-12-14
79 Artikel
BenutzerIn
[default_avatar]

2009-06-28T10:29:14 xubaso
Wenn ich z.B. bei "table1" das datafield "field1" bearbeite, steht dort als assoziierte Tablelle table2. Jetzt möchte ich möglichst ohne viel tippen zu müssen (und wenn möglich lesbar) ad-hoc auf die Tabelle "table2" zugreifen.

Einfach ein LookupTable aufbauen:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Carp;

my @tables = (
   {
      "table" => "table1",
      "description" => "bla",
      "datafield" => [
         {
               name => "field1",
               assoc_table => "table2",
         }
       ]
    },
   {
      "table" => "table2",
      "description" => "blubb",
      "datafield" => [
         {
               name => "field1",
               assoc_table => "table3",
         }
       ]
    },
);

my %lut = map { $_->{'table'} => $_->{'datafield'} } @tables;
print Dumper \%lut;

-- yet another amateur perl hacker