2 hash referenzen zusammenführen (Allgemeines zu Perl)

[thread]13267[/thread]

2 hash referenzen zusammenführen

Leser: 22

Articles: hide open all | hide show old branches

+4 replies
BumBum

2009-03-23 10:26
User since
2009-02-13
9 Artikel
BenutzerIn
Guten Morgen Community,

ich habe das ein kleines Problem. Ich habe 2 SQL Abfragen die jeder ein referenziertes Hash ausgeben:
Code: (dl )

1 2 3 4 5

... my $row = $sth1->fetchrow_hashref(); ... my $row1 = $sth2->fetchrow_hashref(); ...
Daraus ergeben sich 2 referenzierte Hashes:

$row ->{Testeintrag_A} = 0
...
$row1->{Testeintrag_B} = 0
...

Diese beiden Hashes würde ich gerne in 1 referenziertes Hash zusammenfassen:

$refHash->{Testeintrag_A} = 0
$refHash->{Testeintrag_B} = 0

eine Verknüpfung
Code: (dl )

%merged = (%A,%B);
wie bei normale Hashes funktioniert leider nicht.

Hat jemand eine Idee oder weiß wie man sowas hinbekommt.

Vielen Dank
- +3 replies
- pq
  
  2009-03-23 10:31
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2009-03-23T09:26:54 BumBum
  eine Verknüpfung
  
  Code: (dl )
  
  %merged = (%A,%B);
  
  wie bei normale Hashes funktioniert leider nicht.
  
  nein?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my $ref1 = { foo => 23 }; my $ref2 = { bar => 23 }; my %merged = ( %$ref1, %$ref2 ); use Data::Dumper; print Dumper \%merged;
  
  Ausgabe:
  
  Code: (dl )
  
  1 2 3 4
  
  $VAR1 = { 'bar' => 23, 'foo' => 23 };
  
  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
  - +2 replies
  - BumBum
    
    2009-03-23 10:54
    
    User since
    2009-02-13
    9 Artikel
    BenutzerIn
    
    Hallo pq,
    
    erstmal danke für die schnelle Antwort.
    
    Du hast recht es funktioniert hatte die falsche Syntax bei mir. Ich habe es nicht mit %$string probiert.
    
    Danke dir es funktioniert jetzt.
    
    Schönen Tag noch!
    - betterworld
      
      2009-03-23 13:37
      
      User since
      2003-08-21
      2614 Artikel
      ModeratorIn
      
      2009-03-23T09:54:13 BumBum
      Ich habe es nicht mit %$string probiert.
      
      Wie hast Du es probiert?
      Lieblingsmodule: IPC::System::Simple, Path::Class

View all threads created 2009-03-23 10:26.