Hash Values als ARRAY / Andere Möglichkeit (Allgemeines zu Perl)

[thread]14180[/thread]

Hash Values als ARRAY / Andere Möglichkeit

Leser: 19

Articles: hide open all | hide show old branches

+10 replies
PETER_PAN2009

2009-10-27 12:31
User since
2009-08-24
111 Artikel
BenutzerIn
Hallo zusammen!
Ich habe ein Array, welches folgendermaßen aufgebaut ist:
Code (perl): (dl )

my @arr = (xx1111y000, xx1111y001, xx1111y002, xx2222y000, xx2222y001);
Jetzt möchte ich ganz gerne den ersten Part (xx1111 oder xx2222) als Key und den Rest(y000, y001 usw.) als Value in einem Hash speichern.
Code (perl): (dl )

1 2 3 4 5 6 7 8

my %hash = (); foreach my $x(@arr) { if ($x =~ m/(\w{6})(\w{4})/) #($1 = ersten 6 Zeichen / $2 = restliche 4) { $hash{$1} = $2; } }
Jetzt habe ich im Hash die Keys stehen, die Values werden aber überschrieben. Kann ich einem Value ein Array zuweisen?

Die Ausgabe der Keys ist richtig:
Code (perl): (dl )

1 2 3 4

foreach (sort keys %hash) { print qq{<li><a href="$_">$_</a></li>\n}; }
Meine Ausgabe soll danach folgendermaßen aussehen:
xx1111 --> y000, y001, y002
xx2222 --> y000, y001

Hat jemand ne Idee??
DANKE und Gruß
- Linuxer
  
  2009-10-27 12:38
  User since
  2006-01-27
  3882 Artikel
  HausmeisterIn
  Du kannst als Value eine ArrayReferenz verwenden.
  
  Code: (dl )
  
  1 2
  
  # automatisch Array-Referenz in $hash{$1}, $2 wird dem referenzierten Array hinzugefuegt push @{$hash{$1}}, $2;
  
  siehe auch perldoc:
  
  http://perldoc.perl.org/perlreftut.html
  http://perldoc.perl.org/perlref.html
  http://perldoc.perl.org/perldsc.html
  
  PS: Grad knapp bei Zeit, daher kann ich Dir keine erklärenden Worte liefern. Bitte die Perldoc beachten.
  Last edited: 2009-10-27 12:47:28 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +8 replies
- bianca
  
  2009-10-27 12:41
  User since
  2009-09-13
  6999 Artikel
  BenutzerIn
  Vielleicht mit
  
  Code (perl): (dl )
  
  $hash{$1} = (defined $hash{$1} ? $hash{$1} . ',' . $2 : $2)
  
  Edit: Dabei ist die Value zwar kein Array sondern ein Skalar aber Du brauchst es offensichtlich nur für eine HTML-Liste. Sollte reichen dafür, oder?
  
  Edit2: Deine Ausgabe sollte dann allerdings so gemacht werden:
  
  Code (perl): (dl )
  
  print qq{<li><a href="$_">$hash{$_}</a></li>\n};
  
  Last edited: 2009-10-27 12:47:17 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +7 replies
  - PETER_PAN2009
    
    2009-10-27 12:48
    
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    Perfekt Bianca, das ist es!
    DANKE SEHR!!
    
    Gruß
    Peter
    - +6 replies
    - Linuxer
      
      2009-10-27 19:00
      
      User since
      2006-01-27
      3882 Artikel
      HausmeisterIn
      
      Was funktionierte an meiner Lösung nicht?
      
      Code (perl): (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
      
      #!/usr/bin/perl use strict; use warnings; my @array = qw( xx1111y000 xx1111y001 xx1111y002 xx2222y000 xx2222y001 ); my %hash; for my $element ( @array ) { if ( $element =~ m/(\w{6})(\w{4})/ ) { # fuelle Hash-of-Array push @{ $hash{$1} }, $2; } } for my $key ( sort keys %hash ) { # dereferenziere Hash-of-Array und baue String zusammen my $value = join ', ', @{ $hash{$key} }; print qq{<li><a href="$key">$value</a></li>\n}, } __END__
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - +5 replies
      - bianca
        
        2009-10-27 19:31
        
        User since
        2009-09-13
        6999 Artikel
        BenutzerIn
        
        Ich finde Deine Variante zwar die Frage zu 100 % treffend aber in Bezug auf die benötigte Lösung mit Kanonenkugeln auf Spatzen geschossen. Vielleicht hat er das deshalb nicht mit einem Array als Value gemacht?
        
        Dennoch wieder ein gutes Lehrstück, ich werde mir das auf jeden Fall im Hinterkopf halten. Arrays als Values im Hash braucht man immer wieder mal.
        10 print "Hallo"
        20 goto 10
        
        +4 replies
        
        Linuxer
        
        2009-10-27 19:59
        
        User since
        2006-01-27
        3882 Artikel
        HausmeisterIn
        
        Jetzt mag es noch wie eine Kanone aussehen.
        Vielleicht hat er es so nicht getan, weil er es noch nicht kannte?
        
        Irgendwann soll das Skript vielleicht aufgebohrt werden und mit den Elementen der Values muss mehr gemacht werden.
        Dann steht man wieder da und zerpflückt den String, um die einzelnen Werte zu bekommen.
        Da nehm ich es gern in Kauf, jetzt diese Kanone in Position gebracht zu haben.
        
        edit:
        PS: Ausserdem war konkret auch nach der Array-Variante gefragt... siehe Betreff.
        Last edited: 2009-10-27 20:02:11 +0100 (CET)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        +3 replies
        
        bianca
        
        2009-10-27 20:29
        
        User since
        2009-09-13
        6999 Artikel
        BenutzerIn
        
        Ja, Linuxer, Du bist völlig richtig!
        Frage zu 100 % beantwortet! Sag ich ja.
        Formell war es nicht andres zu lösen.
        
        Aber nur der Fragesteller weiß, ob er wirklich ein Array als Value haben wollte für evtl. spätere Aufbohrungen oder nicht....
        10 print "Hallo"
        20 goto 10
        
        +2 replies
        
        Linuxer
        
        2009-10-27 20:38
        
        User since
        2006-01-27
        3882 Artikel
        HausmeisterIn
        
        Sorry, ich spare mir hier an dieser Stelle weitere Diskussion mit Dir, weil ich nicht verstehe, was Du nun von mir willst?
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        bianca
        
        2009-10-28 08:28
        
        User since
        2009-09-13
        6999 Artikel
        BenutzerIn
        
        Ich will von Dir garnix :)
        10 print "Hallo"
        20 goto 10

View all threads created 2009-10-27 12:31.