Referenz zuweisen (gelöst) (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2024-12-23 22:06:14
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online

[thread]18006[/thread]

submit to reddit

Referenz zuweisen [gelöst]

[gelöst]

Tags: perl5 Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+14 replies
bianca

2012-12-22 12:57

User since
2009-09-13
7016 Artikel
BenutzerIn

Hi!
Habe gerade eine Tapete vor Augen.
Der Code foreach my $k (keys %$ref) {$back->{$k} = $ref->{$k}} tut genau das Gewünschte.
$back = $ref hingegen nicht, weil dann $back im Hauptprogramm leer ist.
Wo ist mein Denkfehler?
Danke
10 print "Hallo"
20 goto 10
- +5 replies
- GwenDragon
  
  2012-12-22 14:21
  User since
  2005-01-17
  14760 Artikel
  Admin1
  $back = $ref kopiert nicht die Inhalte sondern die Adresse!
  
  Lass das mal laufen als Anschauung für dich:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6
  
  my ($ref, $back); $back = {}; $ref = {}; print $ref," ",$back, "\n"; $back = $ref; print $ref," ",$back, "\n";
  
  //EDIT: Tippfehler in Text
  Last edited: 2012-12-22 14:24:48 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - bianca
    
    2012-12-22 14:31
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    OK, ist nur die Adresse.
    Und welche Syntax kopiert die Inhalte?
    10 print "Hallo"
    20 goto 10
    - GwenDragon
      
      2012-12-22 14:47
      
      User since
      2005-01-17
      14760 Artikel
      Admin1
      
      Es gibt keine Perlsytax zum Kopieren von Hashes!
      
      Programmstücke wie for-Schleifen mit Zuweisen der Inhalte, Hash und Array-Slices, was weiß ich noch -- erlauben das Kopieren von Hashes.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +2 replies
    - GwenDragon
      
      2012-12-22 14:54
      
      User since
      2005-01-17
      14760 Artikel
      Admin1
      
      Auch Derefernzieren und Hashes zuweisen geht (siehe Zeile 18!).
      
      Beispiel:
      
      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
      
      use strict; use warnings; use Data::Dumper; my $ref = { bla => 99, foo => 'ööö', blubb => 9, z => 'zett' }; my $back; print "Adressen: $ref # $back \n"; print Dumper ($ref); print Dumper ($back); %$back = %$ref; print "\n\nAdressen: $ref # $back \n"; print Dumper ($ref); print Dumper ($back);
      
      Aber Vorsicht es erzeugt eine 1:1-Kopie!
      Wenn mehr Inhalte im Hash von $back als in $ref vorhanden sind, bleiben die nicht erhalten.
      Last edited: 2012-12-22 14:56:51 +0100 (CET)
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - bianca
        
        2012-12-22 15:19
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Diese Syntax war die einzige, die ich nicht probiert hatte. Danke, das war es.
        Da $back an der Stelle immer leer ist, ist die 1:1 Kopier wunderbar.
        Danke dir!
        10 print "Hallo"
        20 goto 10
- GwenDragon
  
  2012-12-22 14:58
  
  User since
  2005-01-17
  14760 Artikel
  Admin1
  
  Ansonsten kann dclone aus Clone Kopien von Hashes (auch tiefer verzweigte) erzeugen.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- rosti
  
  2012-12-22 16:09
  User since
  2011-03-19
  3492 Artikel
  BenutzerIn
  Glosse am Rande:
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  my @names = qw(anton berta cäsar dora); foreach my $name(@names){ $name = 'unknown'; } print "@names"; # surprise ;)
  
  Immer diese doofen Referenzen ;)
  - +6 replies
  - GwenDragon
    
    2012-12-22 16:52
    
    User since
    2005-01-17
    14760 Artikel
    Admin1
    
    Ja, daran musste denken.
    
    Quote
    If any element of LIST is an lvalue, you can modify it by modifying VAR inside the loop. (...)
    In other words, the foreach loop index variable is an implicit alias for each item in the list that you're looping over.
    
    http://perldoc.perl.org/perlsyn.html#Foreach-Loops
    
    Manchmal ist mir da etwas zu viel Perl-Magie.
    Last edited: 2012-12-22 16:53:47 +0100 (CET)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +5 replies
    - hlubenow
      
      2012-12-22 22:29
      
      User since
      2009-02-22
      875 Artikel
      BenutzerIn
      
      2012-12-22T15:52:02 GwenDragon
      Manchmal ist mir da etwas zu viel Perl-Magie.
      
      Übrigens, deshalb geht das auch nicht in Python:
      
      Code (python): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      #!/usr/bin/env python # coding: iso-8859-1 names = ["anton", "berta", "cäsar", "dora"] for name in names: name = 'unknown' print names # Geht nicht.
      
      Die Frage ist dann aber, wie man's denn macht, wenn man's haben möchte. Also, ich mach' das so:
      
      Code (python): (dl )
      
      1 2 3 4 5 6 7 8 9
      
      #!/usr/bin/env python # coding: iso-8859-1 names = ["anton", "berta", "cäsar", "dora"] for namenum in range(len(names)): names[namenum] = 'unknown' print names
      
      Ist meiner Meinung nach am kürzesten und einfachsten. Aber die Leute im Python-Forum haben da jedesmal blöde Diskussionen drüber angefangen. Jedesmal, das heißt auch beim 10. Mal, auch beim 20. Mal, usw.. Dabei hatten sie wie gesagt keine ebenso kurze und ebenso einfache Lösung anzubieten. Das war alles äußerst ärgerlich.
      
      Insofern finde ich diese foreach-Syntax von Perl schon recht cool und locker. Obwohl
      
      Code (perl): (dl )
      
      1 2 3
      
      for (my $num = 0; $num <= $#names; $num++) { $names[$num] = 'unknown'; }
      
      schon deutlicher wäre. "Explicit is better than implicit." Ja ja ...
      - Gast wer
        
        2012-12-22 22:52
        
        warum nicht:
        
        Code (perl): (dl )
        
        1 2 3
        
        for my $num (0..$#names) { $names[$num] = 'unknown'; }
        
        Last edited: 2012-12-22 23:35:48 +0100 (CET)
      - rosti
        
        2012-12-22 23:28
        
        User since
        2011-03-19
        3492 Artikel
        BenutzerIn
        
        Ok, schreiben wir diese Geschichte mal in PHP ;)
        
        Code: (dl )
        
        1 2 3 4 5 6
        
        # beachte die Adressierung mit AmpersAnd in der Schleife $names = array('anton','berta'); foreach($names as &$name){ $name = 'nobody'; } print_r($names); # alles 'nobody'
        
        Ohne AmpersAnd wird die Liste $names nicht geändert. Aber wahrscheinlich ist die Ähnlichkeit mit Perl Rainer Zufall.
        Last edited: 2012-12-22 23:29:38 +0100 (CET)
      - GwenDragon
        
        2012-12-23 00:53
        
        User since
        2005-01-17
        14760 Artikel
        Admin1
        
        Du miss verstehst mich. Ich finde foreach gut.
        Dass die Liste über die Zuweisung von Werten an die "Lauf"Variable manipuliert wird, ist für die meisten Leute ungewohnt.
        Ich kenne das von Leuten, die denken, foreach ist sowas wie eine for-Schleife. Eben nicht.
        Last edited: 2012-12-23 00:57:45 +0100 (CET)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - murphy
        
        2012-12-23 15:31
        
        User since
        2004-07-19
        1776 Artikel
        HausmeisterIn
        
        2012-12-22T21:29:51 hlubenow
        [...]
        Die Frage ist dann aber, wie man's denn macht, wenn man's haben möchte. Also, ich mach' das so:
        
        Code (python): (dl )
        
        1 2 3 4 5 6 7 8 9
        
        #!/usr/bin/env python # coding: iso-8859-1 names = ["anton", "berta", "cäsar", "dora"] for namenum in range(len(names)): names[namenum] = 'unknown' print names
        
        [...]
        
        Also erstmal möchte man das natürlich gar nicht haben, denn veränderliche Datenstrukturen sind sowieso böse ;-)
        
        Aber es geht auf alle Fälle sowohl in Python als auch in Perl viel kürzer und nach meinem Geschmack auch klarer:
        
        Code (python): (dl )
        
        names[:] = ['unknown'] * len(names)
        
        bzw.
        
        Code (perl): (dl )
        
        @names = ('unknown') x @names
        
        When C++ is your hammer, every problem looks like your thumb.

View all threads created 2012-12-22 12:57.