Kleine Tabelle in einen Hash einlesen (Datenbanken und Verzeichnisdienste)

[thread]17294[/thread]

Kleine Tabelle in einen Hash einlesen

Tags: perl5 DBI PostgreSQL Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

+3 replies
guest Florian

2012-04-04 21:52
Hallo zusammen,

ich brauche mal Hilfe bei der Erstellung eines Arrays in Perl. Ich habe eine kleine Tabelle in Postgresql die wie folgt aussieht:
Code: (dl )

1 2 3 4 5

MODULENAME | de | en | fr -------------+-----------+------------+------------ MOD1 | Hallo | Hello | Ciao MOD2 | ABC | DEF | GHI MOD3 | 123 | 456 | 789
Jetzt möchte ich diese Tabelle komplett in einen Hash einlesen, sodass ich folgendermaßen auf die Werte zugreifen kann:
Code (perl): (dl )

$ref->{MOD2}->{en}
soll ergeben 'DEF'

Wer kann das?

Danke und Grüße,
Florian

modedit Editiert von GwenDragon: Tabellenbeispiel + Code in CODE-Tags
Last edited: 2012-04-05 09:07:50 +0200 (CEST)
- lichtkind
  
  2012-04-04 22:52
  User since
  2004-03-22
  5708 articles
  ModeratorIn + EditorIn
  das nennt sich hash of hash, weil array ist das mit den eckigen klammern und der @ vorne.
  
  $ref->{MOD2}{en} reicht auch, aber mit dem sql muss dir wer anders helfen. ich weiss nur das:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  $ref = { MOD1 => {de=> 'Hallo', en=> 'Hello', fr => 'Ciao'}, MOD2 => {de=> 'ABC', en=> 'DEF', fr => 'GHI'}, MOD3 => {de=> 123, en=> 456, fr => 789}, };
  
  Last edited: 2012-04-05 03:13:29 +0200 (CEST)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- pq
  
  2012-04-04 23:40
  User since
  2003-08-04
  12209 articles
  Admin1
  was kannst du denn schon?
  
  ungetestet:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $sth = $dbh->prepare("SELECT MODULENAME, de, en, fr FROM t"); $sth->execute; my $modules; while (my $row = $sth->fetchrow_hashref) { for my $lang (qw/ de en fr /) { $modules->{ $row->{MODULENAME} }->{ $lang } = $row->{ $lang }; } }
  
  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

View all threads created 2012-04-04 21:52.