Arrays igen!

[Hans Schou <sslug@sslug>]

Jeg fedter lidt med et database dokumenterings-projekt som pt. er skrevet
i PHP, og kan ses her:
  http://www.infopoll.org/~chlor/pgdoc/?database=pgdoc

Så ved du hvordan output ser ud.

Input kommer fra nogle ASCII-SQL filer der er loadet ind i en database,
så ovenstående link henter rent faktisk data direkte fra basen.

Men jeg vil gerne have det over i Perl da det er mere velegnet til
batch-kørsler.

Jeg forestiller mig at jeg suger al informationen ud af databasen og
gemmer data i et associativt array. Herefter har jeg een variabel hvor der
er et antal databaser. Hver database har igen nogle arrays med navnene
TABLES, VIEWS og FUNCTIONS. Under TABLES er der så et antal tabeller, og
igen herunder et antal felter og så fremdeles.

Hvordan strukturere man bedst dette i Perl?
Og hvordan tilskrives disse arrays?
Hvordan er syntaxen for at se hvor mange tabeller der er i en given db?

Herunder strukturen som jeg forestiller mig den ser ud, når jeg laver et
test-output.

  database1
    TABLES
      table1
        field1
          type
          size
          default
          references
          comment
        field2
          type
          size
          default
          references
          comment
      table2
        field1
          type
          size
          default
          references
          comment
        field2
          type
          size
          default
          references
          comment
    VIEWS
      view1
        definition
        comment
      view2
        definition
        comment
    FUNCTIONS
      func1
        definition
        comment
      func1
        definition
        comment

-- 
Hamletsgade 4 - 201, DK-2200 København N, Phone: +45 2264 8020
http://schou.dk
--------------------------------------------------------------
perl -pe 'BEGIN {undef($/)} s/<FORTROLIGT>.*?<\/FORTROLIGT>//sg'