push mit hashes (Allgemeines zu Perl)

[thread]16420[/thread]

push mit hashes

Tags: perl5 Ähnliche Threads

Leser: 31

Articles: hide open all | hide show old branches

+18 replies
jan99

2011-06-16 08:52

User since
2008-09-18
439 Artikel
BenutzerIn

Hi !

ich habe hashes

my %platform_err_id = ();

und möchte da als Liste weitere Werte anhängen und hatte mir das wie folgt gedacht.

push($platform_err_id{$refvalue}, $fingerprint);

Bekomme aber die Meldung das der erste Parameter von push ein array sein muß - ich dacht mit dem Wert $platform_err_id{$refvalue} wäre das ausreichend.

Kann mir einer sagen wie man das denn in Griff bekommen könnte?

Gruß Jan :-)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +9 replies
- rosti
  
  2011-06-16 09:21
  User since
  2011-03-19
  3474 Artikel
  BenutzerIn
  hi,
  
  Code (perl): (dl )
  
  push @{$hash{$key}}, @list;
  
  sollte thun ;)
  - +2 replies
  - Taulmarill
    
    2011-06-16 09:47
    User since
    2004-02-19
    1750 Artikel
    BenutzerIn
    
    Seit Perl Version 5.14 akzeptiert push() übrigens auch Referenzen auf Arrays:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    use v5.14; my %hash; $hash{key} = []; push $hash{key}, "string"; use Data::Dumper; print Dumper \%hash;
    
    $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
    - rosti
      
      2011-06-16 10:11
      
      User since
      2011-03-19
      3474 Artikel
      BenutzerIn
      
      Ok, danke.
      
      Eine andere Schreibweise in älteren Perl's (i.e. 5.6.1):
      
      Code (perl): (dl )
      
      1 2 3
      
      my %x = (); $x{foo} = [1,2,3,4,5]; print join "\n", @{$x{foo}};
      
      setzt die Werte einfach in [], kein push().
      
      An Jan: push(@array, ?) erwartet eine Liste oder Einzelwerte in "?".
      
      --Rosti
  - +6 replies
  - jan99
    
    2011-06-16 09:57
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    hi !
    
    verstehe ich das richtig, dann muss ich meinen wert $fingerprint erst irgendwie in eine Liste überführen ?
    
    Gruß Jan :-)
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
    - +4 replies
    - renee
      
      2011-06-16 09:58
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Nicht den Wert, den Du neu im Array haben willst, aber das Array bzw. die Arrayreferenz!
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
      - +3 replies
      - jan99
        
        2011-06-16 10:43
        
        User since
        2008-09-18
        439 Artikel
        BenutzerIn
        
        hi !
        
        ich habe das jetzt eingepflegt in die gekennzeichneten Zeilen (##<<<-) - bekomme aber eine Fehlermeldung das die Anzahl der } nicht passt !!!!
        
        Habe ich da etwas falsch umgesetzt ??
        
        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 27 28 29 30
        
        for my $element (@osm_data_platform) { my $refvalue = $element->tag('ref:svhl')->value(); my $fingerprint = lc($element->type()).$element->id(); dort vorhanden, print "\n\nReferenz: ".$refvalue."\n"; print "Fingerpring: ".$fingerprint."\n"; if (!defined($platform_id{$refvalue})) { print "==> nicht in Liste gefunden !\n"; push(@platform_noref, $fingerprint) # fehlerliste ergänzen }else{ print "==> in RefListe vorliegende !! => weiter checken\n"; - doppelt gibt es nicht ! if ($platform_id{$refvalue} ne "") { print "===> es liegt bereits eine Referenz vor ! => Fehlerliste fuer mehrfach ergaenzen\n"; if ($platform_id{$refvalue} eq "-1"){ push @{$platform_err_id{$refvalue}}, $fingerprint ; #<<<<- } $platform_err_id{$refvalue} = $platform_id{$refvalue}; $platform_id{$refvalue} = "-1"; push @{$platform_err_id{$refvalue}}, $fingerprint; #<<<<- } } else { print "==> jetzt liegt eine Element für diese Ref vor !\n"; $platform_id{$refvalue} = $fingerprint; } }
        
        Gruß Jan :-)
        
        modedit Edited by renee: perl-Tags eingefügt
        Last edited: 2011-06-16 10:55:37 +0200 (CEST)
        perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
        
        Taulmarill
        
        2011-06-16 11:53
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        So spontan würde ich mal sagen, dass entweder das } in Zeile 25 über ist oder zwischen den Zeilen 21 und 22 ein else { fehlt.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
        
        pq
        
        2011-06-16 12:04
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        das wundert mich echt nicht.
        mach mal die einrückung richtig und du solltest den fehler sehen.
        macht es dir spass, dich selbst mit dieser per zufall gewählten einrückung zu verwirren?
        
        edit: oder anders ausgedrückt: wenn du nicht siehst, dass du 2 mal else hintereinander gepackt hast, dann ist es zeit, deinen einrückungsstil zu verbessern. oder in deinem fall, dir überhaupt erstmal einen anzuschaffen. ein editor, der dir passende klammern zeigt, kann auch nie schaden.
        Last edited: 2011-06-16 12:11:26 +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
    - Taulmarill
      
      2011-06-16 10:34
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Nein, musst du nicht, $fingerprint ist hier genau genommen schon Teil einer Liste. Folgendes sollte schon mal in deinem Fall funktionieren:
      
      Code (perl): (dl )
      
      push( @{$platform_err_id{$refvalue}}, $fingerprint );
      
      Was rosti mit der Variable @list in seinem Beispiel zum Ausdruck bringen wollte war, dass man mit push() auch mehrere Werte in einen Array schieben kann. Es funktionieren also auch solche formen:
      
      Code (perl): (dl )
      
      1 2 3
      
      push @array, $foo, $bar, $baz; #ein oder mehrere Scalare push @array, @one_list, @another_list; #ein oder mehrere Arrays push @array, $foo, @list, $bar; #oder auch gemischt
      
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- Gast wer
  
  2011-06-16 10:27
  
  Wenn eine Arrayrefenz in $platform_err_id{$refvalue}
  Erst dereferenzieren @{$platform_err_id{$refvalue}}
  Dann push push(@{$platform_err_id{$refvalue}},$wert)
  push kann auch mehrere Werte einfügen push(@{$platform_err_id{$refvalue}},$wert1, $wert2),
  oder ein array push(@{$platform_err_id{$refvalue}},@werte)
  Last edited: 2011-06-16 10:54:17 +0200 (CEST)
- +7 replies
- Kean
  
  2011-06-16 14:30
  User since
  2004-08-18
  463 Artikel
  BenutzerIn
  Ich stand vor kurzem auch vor dem Problem mit push und Hashes.
  
  Am schönsten fand ich diese Lösung:
  
  Code (perl): (dl )
  
  1 2
  
  my %platform_err_id = (); %platform_err_id = ( %platform_err_id, schlüssel => $wert);
  - +3 replies
  - pq
    
    2011-06-16 14:36
    
    User since
    2003-08-04
    12208 Artikel
    Admin1
    
    das ist aber ziemlich ineffizient, wenn man nur einen key hinzufügen will.
    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
    - Kean
      
      2011-06-16 14:43
      
      User since
      2004-08-18
      463 Artikel
      BenutzerIn
      
      Diese Methode hab ich von dir als "Push für Hashes" :-)
      - pq
        
        2011-06-16 15:24
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ja, als alternative zu $hash{foo} = "bar"; speziell, wenn man mehrere keys hinzufügen möchte. für einen einzelnen key ist das doch viel zu umständlich...
        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
  - Dubu
    
    2011-06-16 17:59
    User since
    2003-08-04
    2145 Artikel
    ModeratorIn + EditorIn
    
    Wenn man einem Hash einfach nur ein zusätzliches Schlüssel/Wert-Paar hinzufügen möchte, dann bitte
    
    Code: (dl )
    
    $platform_err_id{$schluessel} = $wert;
    
    In der Frage von jan99 ging es aber (wahrscheinlich!) darum, dass der Wert zu den Schlüsseln nicht ein Skalar, sondern eine Arrayreferenz sein soll. Und zu dem Array sollen Werte hinzugefügt werden:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    # Ersten Wert anlegen: $platform_err_id{$schluessel} = [ $wert1 ]; # Zweiten Wert hinzufügen push @{$platform_err_id{$schluessel}}, $wert2; # $platform_err_id{$schluessel} enthält jetzt [ $wert1, $wert2 ]
    
    (Ich bin aber wirklich nicht sicher, ob Jan wirklich ein Array mit mehreren Werten pro Schlüssel will und nicht nur einen zusätzliches Schlüssel/Wert-Paar - und das etwas unglücklich ausgedrückt hat ...)
  - +2 replies
  - Gast js
    
    2011-06-16 18:48
    2011-06-16T12:30:54 Kean
    Ich stand vor kurzem auch vor dem Problem mit push und Hashes.
    
    Am schönsten fand ich diese Lösung:
    
    Code (perl): (dl )
    
    1 2
    
    my %platform_err_id = (); %platform_err_id = ( %platform_err_id, schlüssel => $wert);
    
    Push fügt hinzu. In deinem Fall würde ein bestehender Key überschrieben werden, somit ist das Beispiel nicht equivalent zu push.
    Last edited: 2011-06-16 18:55:12 +0200 (CEST)
    - clms
      
      2011-06-16 19:32
      
      User since
      2010-08-29
      373 Artikel
      BenutzerIn
      
      Guest js
      Push fügt hinzu. In deinem Fall würde ein bestehender Key überschrieben werden, somit ist das Beispiel nicht equivalent zu push.
      
      Ein klassisches "push" gibt es ohnehin nur mit Arrays, nicht mit Hashes.
      
      Aus zwei Gründen:
      In einem Hash kann ein Schlüssel immer nur einmal vorkommen. Wenn man also den gleichen Schlüssel nochmal hinzufügt, wird der dem Schlüssel zugeordnete Wert überschrieben.
      
      Push bedeutet auch, dass ans Ende der Liste/des Arrays angefügt wird.
      Hashes haben aber keine Reihenfolge, ein neu hinzugefügter Schlüssel kann bei der Iteration über den Hash an beliebiger kommen.

View all threads created 2011-06-16 08:52.