Hash each Konstrution mit Aktion für beide Werte (Allgemeines zu Perl)

[thread]16837[/thread]

Hash each Konstrution mit Aktion für beide Werte

Tags: perl5 Ähnliche Threads

Leser: 24

Articles: hide open all | hide show old branches

+10 replies
marky

2011-10-22 08:57
User since
2003-08-15
215 Artikel
BenutzerIn
Hallo,

ich frage mich gerade, ob ich eine each Konstruktion mit gleichen Aktionen auf beide Werte auch anders als so schreiben kann
Code: (dl )

1 2 3 4 5

while ( my ($k,$v) = each %FM ) { $k =~ s/<([^>]|\n)*>/ /g ; $v =~ s/<([^>]|\n)*>/ /g ; }
im Endeffekt will ich x gleiche Aktionen auf beide Werte anwenden, ohne eine Sub zu machen und wenn möglich die Aktionen nur einmal auflisten.

Geht das irgendwie?
Mfg
Markus - http://www.perlunity.de -
- payx
  
  2011-10-22 10:26
  User since
  2006-05-04
  564 Artikel
  BenutzerIn
  Hallo marky,
  
  Code (perl): (dl )
  
  1 2 3 4
  
  while ( my @a = each %FM ) { s/<([^>]|\n)*>/ /g for @a; print "$a[0] => $a[1]\n"; }
  
  HTH
  Grüße
  payx
  Last edited: 2011-10-22 10:27:52 +0200 (CEST)
- pq
  
  2011-10-22 10:30
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  mir fällt da bloss for oder map ein. also
  s/.../.../ for $k, $v;
  oder wers schöner findet:
  map s/.../.../, $k, $v;
  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
- +5 replies
- MatthiasW
  
  2011-10-22 15:23
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Wenn es nicht unbedingt each sein muss und innerhalb der Schleife sonst nichts passiert, dann könntest du auch mit for drüber laufen:
  
  Code (perl): (dl )
  
  s/<[^>]*>/ /g for %FM;
  
  Für mehrere Befehle entsprechend:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  for (%FM) { s/<[^>]*>/ /g; #... }
  
  perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
  - +4 replies
  - GwenDragon
    
    2011-10-22 16:03
    User since
    2005-01-17
    14759 Artikel
    Admin1
    
    Funktioniert so nicht unter Perl 5.12.
    Es werden nur Werte geändert, keine Schlüssel.
    
    Testcase:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
    
    use strict; use warnings; use Data::Dumper; print "Perl Version: $] \n\n"; my %FM = ( '<ABCDE>' => '<XYZ>', '<abcde>' => '<xyz>', '<asdf>' => '<AsDf>', '<123>' => '<456>', ); print Data::Dumper::Dumper \%FM; for (%FM) { s/<[^>]*>/ /g; } print Data::Dumper::Dumper \%FM;
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    Ergibt: Perl Version: 5.012003 $VAR1 = { '<123>' => '<456>', '<asdf>' => '<AsDf>', '<abcde>' => '<xyz>', '<ABCDE>' => '<XYZ>' }; $VAR1 = { '<123>' => ' ', '<asdf>' => ' ', '<abcde>' => ' ', '<ABCDE>' => ' ' };
    
    Last edited: 2011-10-22 16:05:04 +0200 (CEST)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GUIfreund
      
      2011-10-22 19:11
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      Wenn ich dein Beispiel richtig verstehe, erzeugst du 4 mal denselben Key ' '. Der Effekt könnte dann sein, dass du einen 5. Key hinzugefügt hast (davon ist freilich in der Ausgabe nichts zu sehen).
      
      Ich bezweifle aber generell, dass man einen Hashkey auf Schleichwegen durch einen anderen ersetzen kann. Um das zu prüfen, habe ich deine Schleife etwas vereinfacht:
      
      Code (perl): (dl )
      
      1 2 3
      
      for (keys %FM) { s/a/X/; }
      
      Die Ausgabe scheint meine Vermutung zu bestätigen:
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14
      
      Perl Version: 5.010001 $VAR1 = { '<123>' => '<456>', '<asdf>' => '<AsDf>', '<abcde>' => '<xyz>', '<ABCDE>' => '<XYZ>' }; $VAR1 = { '<123>' => '<456>', '<asdf>' => '<AsDf>', '<abcde>' => '<xyz>', '<ABCDE>' => '<XYZ>' };
      
      Gruß
      GUIfreund
    - Gast wer
      
      2011-10-22 23:15
      
      Code (perl): (dl )
      
      %FM=map{ s/<[^>]*>/ /g; $_ }%FM;
      
      Last edited: 2011-10-22 23:18:25 +0200 (CEST)
    - MatthiasW
      
      2011-10-23 18:15
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Ja stimmt, hatte nicht dran gedacht, dass man die Schlüssel so nicht ändern kann. Allerdings funktioniert das mit each auch nicht, denn dann werden nicht mal die Werte verändert.
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'
- marky
  
  2011-10-22 19:12
  
  User since
  2003-08-15
  215 Artikel
  BenutzerIn
  
  Hallo,
  
  danke für die Antworten, muss ich mal probieren, was da ma schnellsten ist, das ist die Formulardatenverarbeitung, da sind viele regex-Zeilen untereinander, das ist nicht gut bei doppelter Verwendung, ich denke ich werde das for nehmen. Irgendwie hatte ich das auch, aber die Wertemanipulation hatte keine Auswirkung auf das urspungsHash, aber das werde ich sicher hinbekommen, danke nochmal.
  Mfg
  Markus - http://www.perlunity.de -
- murphy
  
  2011-10-23 18:48
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  Wenn die Schlüssel des Hashes verändert werden sollen, muss man ohnehin die Datenstruktur neu aufbauen, also würde ich ausnutzen, dass ein Hash im Listenkontext zu Schlüsseln und Werten expandiert und sich auch mit einer Liste befüllen lässt:
  
  Code (perl): (dl )
  
  %FM = map s/<([^>]|\n)*>/ /gr, %FM;
  
  When C++ is your hammer, every problem looks like your thumb.

View all threads created 2011-10-22 08:57.