kontext bei map und tr ändern (Allgemeines zu Perl)

[thread]14792[/thread]

kontext bei map und tr ändern

Leser: 19

Articles: hide open all | hide show old branches

+11 replies
Gast undef

2010-03-10 12:02
hallo zusammen,

kann mir einer sagen, wie ich den kontext bei map+tr ändere?
Code: (dl )

1 2 3

my @string = "hallo"; my @bla = map { (my $bla = $_) =~ tr/h//d } @string;
gibt mir 1 aus, hätte aber gerne "allo". mit einer forschleife geht es:
Code: (dl )

1 2 3 4 5 6

my @string = "hallo"; for (@string) { (my $bla = $_) =~ tr/h//d; print $bla; }
vielen dank schon mal

bye
- lichtkind
  
  2010-03-10 12:09
  
  User since
  2004-03-22
  5697 Artikel
  ModeratorIn + EditorIn
  
  was willst überhaupt in my @string drinhaben? das wird nicht automatisch zum buchstabenliste, sondern das hat nur einen wert, den string selber.
  Last edited: 2010-03-10 13:08:02 +0100 (CET)
  Tutorien in der Wiki, mein zeug:
  kephra, baumhaus, garten, gezwitscher
  
  Es beginnt immer mit einer Entscheidung.
- Gast Fön Saigon
  
  2010-03-10 12:12
  
  @bla = map { tr/h//d;$_ } @string;
- +3 replies
- Taulmarill
  
  2010-03-10 12:13
  User since
  2004-02-19
  1750 Artikel
  BenutzerIn
  tr/// gibt die Anzahl der gemachten Ersetzungen zurück, hat hier also erst mal nichts mit Kontext zu tun. Den geänderten String bekommst du z.B. so:
  
  Code (perl): (dl )
  
  my @bla = map { tr/h//d; $_ } @string;
  
  $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
  - +2 replies
  - sid burn
    
    2010-03-10 12:15
    
    User since
    2006-03-29
    1520 Artikel
    BenutzerIn
    
    Das würde aber auch die Elemente in @string abändern.
    Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
    - Taulmarill
      
      2010-03-10 13:32
      
      User since
      2004-02-19
      1750 Artikel
      BenutzerIn
      
      Hast du recht. Dass $_ bei map ein Alias ist hatte ich irgendwie verdrängt, dachte das wäre nur bei for so.
      $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B
- sid burn
  
  2010-03-10 12:14
  User since
  2006-03-29
  1520 Artikel
  BenutzerIn
  Das hat mit Kontext nichts zu tun. Du gibst das ergebnis der "tr" Operation zurück, wenn du den Inhalt von $bla zurück geben willst musst du das so schreiben:
  
  Code (perl): (dl )
  
  my @bla = map { (my $bla = $_) =~ tr/h//d; $bla } @string;
  
  Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de
- +4 replies
- betterworld
  
  2010-03-10 12:16
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  Es scheint mir, dass Du noch eine etwas falsche Vorstellung davon hast, was "Kontext" in Perl ist. Erklär am besten mal Deine Gedankengänge, dann können wir vielleicht die Missverständnisse klären.
  
  In der for-Schleife gibst Du $bla aus, in "map" hingegen bekommst Du das Resultat des tr-Operators. Du kannst dahinter ; $bla schreiben, um den Inhalt der Variable abzufangen.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +3 replies
  - Gast undef
    
    2010-03-10 13:49
    
    super, danke für die vielen und raschen antworten. habe nicht verstanden, dass "{ }" eine subroutine darstellen soll. by the way ich dachte das macht man mit sub { }. was ist nun "{ }"?
    - Crian
      
      2010-03-10 14:31
      
      User since
      2003-08-04
      5873 Artikel
      ModeratorIn
      
      ein Block
      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
    - Gast Fön Saigon
      
      2010-03-10 14:52
      
      Guest undef
      by the way ich dachte das macht man mit sub { }. was ist nun "{ }"?
      
      hier das gleiche, mit entsprecehndem Prototype spart man sich das "sub".
      
      In TFM von map und perlsub findest du mehr zum Thema.

View all threads created 2010-03-10 12:02.