Hash Referenz und String aus Hash{values} (Allgemeines zu Perl)

[thread]13980[/thread]

Hash Referenz und String aus Hash{values}

Leser: 23

Articles: hide open all | hide show old branches

+5 replies
PETER_PAN2009

2009-09-04 08:18
User since
2009-08-24
111 Artikel
BenutzerIn
Guten Morgen!
Folgendes Problem:
ich habe ein Hash("peter" => "a b c", "paul" => "a c e"). In einer foreach-Schleife gebe ich die Values in eine Funktion(als referenz) und möchte in der Funktion darauf zugreifen.
Code: (dl )

1 2 3 4 5

foreach my $hash (sort keys %hash1) { my $flag = test(\$hash1{$hash}); print(Dumper($flag)); }
Code: (dl )

1 2 3 4 5 6 7

sub test { my $x1 = shift; my %x2 = %$x1; return %x2; }
Die Fehlermeldung beim printen: "Not a HASH reference". Ähhhm ja, wie kann ich denn auf die Values zugreifen, damit ich die in der Test-Funktion weiter bearbeiten kann??

Die zweite Frage:Wie kann ich aus den Values eine Zeichenkette machen? Bei Array geht das ja mit "join", gibt es für Hashes auch eine Funktion??

Danke
Gruß
PETER
- PETER_PAN2009
  
  2009-09-04 08:39
  
  User since
  2009-08-24
  111 Artikel
  BenutzerIn
  
  So, die Refernz-Problematik habe ich gelöst!
  
  Die zweite Frage bleibt aber noch!!
  
  Gruß
  Peter
- +3 replies
- renee
  
  2009-09-04 08:47
  User since
  2003-08-04
  14371 Artikel
  ModeratorIn
  Du willst aus den Values eines Hashs eine Zeichenkette machen. Das geht so:
  
  Code (perl): (dl )
  
  1 2 3
  
  my %hash = ( 1 => 2, 3 => 4, 5 => 6 ); my $string = join "::", values %hash; # siehe perldoc -f values print $string;
  
  Aber beachte, dass die Einträge in einem Hash keine feste Reihenfolge haben, so dass der String bei jedem Programmdurchlauf anders aussehen kann.
  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/
  - PETER_PAN2009
    
    2009-09-04 09:15
    
    User since
    2009-08-24
    111 Artikel
    BenutzerIn
    
    Vielen Dank für deine Antwort renee!
    
    Perfekt!
  - Crian
    
    2009-09-04 10:01
    
    User since
    2003-08-04
    5870 Artikel
    ModeratorIn
    
    Möchtest du sie immer sortiert haben, schreibe noch ein sort vor values.
    s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
    
    use strict; use warnings; Link zu meiner Perlseite

View all threads created 2009-09-04 08:18.