array-hash-Struktur zusammenbasteln (Allgemeines zu Perl)

[thread]13769[/thread]

array-hash-Struktur zusammenbasteln

Leser: 20

Articles: hide open all | hide show old branches

+9 replies
bieber

2009-07-23 10:44
User since
2007-06-18
148 Artikel
BenutzerIn
Hallo perl-community,

ich hänge (mal wieder) bei den Zusammenbau einer Struktur (für die spätere Übergabe an HTML::Template, was hier aber keine Rolle spielt).
so soll es aussehen:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

my $data = [ { SERVER => $ergf[1], DATENBANKLISTE => [ { DATENBANK => $ergf[0] }, ] } { SERVER => $ergf[1], DATENBANKLISTE => [ { DATENBANK => $ergf[0] }, { DATENBANK => $ergf[0] } ] } ]; #möglicher zusammenbau: my $ref1={'SERVER'=>$ergf[1], 'DATENBANKLISTE'=>[{'DATENBANK'=>$ergf[0]}]}; my $ref2={'SERVER'=>$ergf[1], 'DATENBANKLISTE'=>[{'DATENBANK'=>$ergf[0]},{'DATENBANK'=>$ergf[0]}]}; my $data=[$ref1,$ref2];
Bisher habe ich das alles von Hand eingetragen, da leider immer mehr und mehr Daten auftreten will ich es dynamisch regeln. Die Daten kommen aus einem DB-Query und liefern immer ein Zeile für "Servername,Datenbank".
z.B.:
1. "server1","test1"
2. "server2","test2"
3. "server1","test3"

Auf einem Server können also mehrere Datenbanken sein, und das muss ich in die obige Struktur abbilden (ich hoffe ihr könnt es nachvollziehen?!).

mein bisheriger Ansatz:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9

my @superArray; #hostnamen in array speichern while (my @ergf = $abfr1->fetchrow_array){ if(grep $_ eq $ergf[1], @superArray){ #tue nichts, weil bereits im array }else{ push(@superArray, $ergf[1]); } }
und jetzt geht mein Problem schon los, ich muss jetzt die Datenbanken den Hostnamen zuordnen, wie kann ich das denn hinbekommen? Ich muss halt auch irgendwie wieder auf die Struktur oben kommen.

Ich muss ehrlich zugeben, dass dies meine Programmierfähigkeiten echt übersteigt. Wäre für jede Hilfe dankbar.
Last edited: 2009-07-23 11:02:45 +0200 (CEST)
Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.
- +8 replies
- MatthiasW
  
  2009-07-23 11:00
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Folgendes sollte das tun, was du möchtest(nicht getestet):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  my $data; ROW: while ( my @line = $q->fetchrow_array ) { for my $i ( @$data ) { if ( $i->{SERVER} eq $line[0] ) { push @{ $i->{DATENBANKLISTE} }, { DATENBANK => $line[1] }; next ROW; } # if } # for push @$data, { SERVER => $line[0], DATENBANKLISTE => [{ DATENBANK => $line[1] }] }; } # while
  
  Aber ich halte die Struktur in der du die Daten ablegst nicht für angebracht. Ein HoA würde es doch auch tun, oder?
  edit: Entschulde, hatte übersehen, dass du die Daten ja an HTML::Template weiterreichst.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  # also brauchst du das hier nicht ;) my $data = {}; while ( my @line = $q->fetchrow_array ) { push @{ $data->{$line[0]} }, $line[1]; } # while
  
  MfG
  Last edited: 2009-07-23 11:03:43 +0200 (CEST)
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +7 replies
  - bieber
    
    2009-07-23 11:10
    
    User since
    2007-06-18
    148 Artikel
    BenutzerIn
    
    das funktioniert Perfekt! Vielen Dank.
    
    Ich werde mal versuchen deinen Code zu kapieren...bisher verstehe ich da nicht sehr viel :-(.
    Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.
    - +2 replies
    - MatthiasW
      
      2009-07-23 11:18
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Tut mir Leid, ich hätte Kommentare dazuschreiben sollen. Naja, dann hier die Erklärung:
      Für jede Zeile aus der Datenbankabfrage laufe ich zuerst über die aktuelle Datenstruktur und schaue nach, ob bereits ein Eintrag mit identischem SERVER-Wert besteht. Falls solch ein Eintrag besteht, füge ich dem DATENBANKLISTE-Array einen neuen Wert hinzu(mit der neuen DATENBANK). Danach springe ich wieder zum Anfang der while-Schleife, hole also die nächste Zeile von der Datenbank.
      Falls kein Eintrag mit identischem SERVER-Wert besteht, füge ich der Datenstruktur einen neuen Eintrag, mit den Daten aus der Datenbankabfrage, hinzu.
      
      MfG
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
      - bieber
        
        2009-07-23 11:22
        
        User since
        2007-06-18
        148 Artikel
        BenutzerIn
        
        danke für die Erklärung, habs kapiert, juhu
        
        selbst darauf gekommen wäre ich aber nie^^
        Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.
    - +4 replies
    - pq
      
      2009-07-23 11:19
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      wenn du HTML::Template::Compiled verwendest, musst du dich bei der datenstruktur übrigens nicht so verrenken. das kann beliebige strukturen, eben z.b. ein HashOfArrays
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - bieber
        
        2009-07-23 11:30
        
        User since
        2007-06-18
        148 Artikel
        BenutzerIn
        
        wie könnte ich es denn mit HTML::Template::Compiled machen?
        
        mein Template sieht so aus:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
         <li><a href="#"></a> <ul>  <li><a href="#"></a> <ul> <li><a href="?section=status_db.pl&datenbank=">Status</a></li> </ul> </li>  </ul> </li> 
        
        mein Aufruf:
        
        Code (perl): (dl )
        
        $navigation->param(SERVERLISTE => @data);
        
        mal noch was anderes, es gab doch mal die Möglichkeit was zu Spenden für das Forum, würde das gerne tun, da ihr mir schon so oft geholfen habt, ich finde aber leider keinen entsprechenden Link mehr, bin ich blind?
        Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.
        
        +2 replies
        
        pq
        
        2009-07-23 11:45
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        template:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13
        
        <%loop serverliste %> <li><a href="#"><%= server %></a> <ul> <%loop dbs %> <li><a href="#"><%= _ %></a> <ul> <li><a href="?section=status_db.pl&datenbank=<%= _ %>">Status</a></li> </ul> </li> <%/loop dbs %> </ul> </li> <%/loop serverliste %>
        
        daten:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10
        
        my @data = ( { server => "foo", dbs => [qw/ f1 f2 f3 /], }, { server => "bar", dbs => [qw/ b1 b2 b3 b4 /], }, );
        
        aufruf:
        
        Code (perl): (dl )
        
        1 2 3 4 5
        
        my $htc = HTML::Template::Compiled->new( filename => '...', default_escape => "HTML", # unbedingt zur gewohnheit machen ); $htc->param(serverliste => \@data);
        
        Last edited: 2009-07-23 11:46:44 +0200 (CEST)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        bieber
        
        2009-07-23 12:19
        
        User since
        2007-06-18
        148 Artikel
        BenutzerIn
        
        ah okay, danke
        Es gibt immer Leute die meinen, sie seien schlauer als ich. Das Schlimmste ist, sie sind es auch.

View all threads created 2009-07-23 10:44.