Aus 2 Arrays die keys und values eines Hash machen (gelöst) (Allgemeines zu Perl)

[thread]15786[/thread]

Aus 2 Arrays die keys und values eines Hash machen [gelöst]

Leser: 20

Articles: hide open all | hide show old branches

+6 replies
bianca

2010-01-02 16:45
User since
2009-09-13
7016 Artikel
BenutzerIn
Guten Abend und frohes Neues!

Geht dies hier auch einzeilig/eleganter und ohne Schleife?
Code (perl): (dl )

1 2 3 4

my %labels; foreach (my $z = 0; $z < scalar @{$hash_ref -> {supported_countries}}; $z ++) { $labels{$hash_ref -> {supported_countries} -> [$z]} = $hash_ref -> {country_names} -> [$z]; }
Danke
10 print "Hallo"
20 goto 10
Antworten mit Zitat
- +5 replies
- pq
  
  2010-01-02 17:37
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2011-01-02T15:45:43 bianca
  Geht dies hier auch einzeilig/eleganter
  
  sagen wir so, es ist wirklich keine kunst, das eleganter hinzukriegen. sieht ein bisschen aus wie java-oder c-code in perl gepresst.
  wozu die c-style-for-loop?
  du hast hier mittlerweile über 2000 beiträge im forum, und eine schleife der art
  foreach my $z (0 .. $#array)
  ist dir sicher schonmal begegnet.
  trotzdem verwendest du
  foreach (my $z = 0; $z < @array; $z++)
  wird also langsam al zeit, perl zu programmieren.
  
  und hier das eigentliche problem abstrahiert:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  my @names = qw/ foo bar baz /; my @values = (1,2,3); my %hash; @hash{ @names } = @values; use Data::Dumper; print Dumper \%hash; __END__ $VAR1 = { 'bar' => 2, 'baz' => 3, 'foo' => 1 };
  
  ziemlich simpel also, oder?
  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
  Antworten mit Zitat
  - +4 replies
  - bianca
    
    2010-01-02 17:47
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    2011-01-02T16:37:05 pq
    wozu die c-style-for-loop?
    
    Bin durcheinander, hexe in vielen Küchen.
    
    2011-01-02T16:37:05 pq
    du hast hier mittlerweile über 2000 beiträge im forum, und eine schleife der art
    foreach my $z (0 .. $#array)
    ist dir sicher schonmal begegnet.
    
    Ja, ist sie, aber $# ist beeinflussbar, soweit ich mich erinnere und ergibt daher nicht immer unbedingt das selbe Ergebnis wie scalar() oder hab ich mich da falsch erinnert?
    
    2011-01-02T16:37:05 pq
    und hier das eigentliche problem abstrahiert:
    
    Ja, danke Dir, das war es.
    Hab gerade mit push rumgemacht und anderen obskuren Schreibweisen, war aber alles Müll.
    10 print "Hallo"
    20 goto 10
    
    Antworten mit Zitat
    - +3 replies
    - pq
      
      2010-01-02 18:26
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2011-01-02T16:47:16 bianca
      Ja, ist sie, aber $# ist beeinflussbar, soweit ich mich erinnere und ergibt daher nicht immer unbedingt das selbe Ergebnis wie scalar() oder hab ich mich da falsch erinnert?
      
      wieso sollte $#array dasselbe ergebnis wie scalar @array haben? das wäre natürlich dumm.
      $#array liefert die zahl des letzten index von @array, also in der regel äquivalent zu @array -1.
      
      verändern kann man $#array nur, wenn man $[ direkt im selben skript (selbe datei) manipuliert. kannst du ja auch einfach in perldoc perlvar nachlesen.
      
      und was hat das ganze mit der c-style-for-loop zu tun?
      es ist zwar albern, aber wenn du paranoid bist und aus irgendeinem grund nicht weisst, ob in der datei, in der du gerade editierst, irgendwo $[ manipuliert wird, dann schreibst du halt
      for my $z (0 .. @array -1 )
      statt $#array.
      
      verstehe nicht, warum das jetzt ein grund sein sollte, c-style-for-loops zu verwenden.
      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
      
      Antworten mit Zitat
      - +2 replies
      - bianca
        
        2010-01-02 18:39
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2011-01-02T17:26:35 pq
        verstehe nicht, warum das jetzt ein grund sein sollte, c-style-for-loops zu verwenden.
        
        Der Grund war, dass ich eh wußte, dass es ohne Schleife geht und es mir daher egal war, wie die aussieht. Hauptsache funktioniert erstmal, bis die perlige Lösung da ist.
        
        2011-01-02T17:26:35 pq
        aber wenn du paranoid bist und aus irgendeinem grund nicht weisst, ob in der datei, in der du gerade editierst, irgendwo $[ manipuliert wird
        
        Danke auch für das "paranoid", was man offensichtlich in Deinen Augen schon allein dadurch ist, dass man nicht den gesamten Code kennt.
        Schade, dass Du in Deine alten beleidigenden Verhaltensschemata zurück verfallend drohst. Hast Dich jetzt zugunsten des allgemeinen Umgangstons sehr lange im Griff gehabt, warum der Rückfall?
        10 print "Hallo"
        20 goto 10
        
        Antworten mit Zitat
        
        pq
        
        2010-01-02 19:27
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich empfehle eine forumssuche nach dem wort "paranoid" und eine darauffolgende überlegung, ob man "paranoid" im hiesigen kontext wirklich als beleidigung ansehen kann. darauf hätte ich gerne eine antwort, bis dahin ist der thread geschlossen.
        
        schade, dass du wieder in dein altes schema verfällst und andere der beleidigung bezichtigst, wo gar keine ist. du hattest dich ja so lange im griff.
        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
        
        Antworten mit Zitat

View all threads created 2010-01-02 16:45.