Korrekter Code? (solved) (Allgemeines zu Perl)

[thread]16171[/thread]

Korrekter Code? [solved]

Tags: perl5 Similar Threads

Readers: 21

Articles: hide open all | hide show old branches

+8 replies
bianca

2011-04-09 20:28
User since
2009-09-13
7016 articles
BenutzerIn
Tausend mal gefragt, tausend mal vergessen :))
Bitte nochmal kurz um Beantwortung der Frage, ob man einen Hash als Referenz übergeben besser per %$ oder per %{$} anspricht. Insbesondere um das Hash zu löschen.

Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %test = (1=>'a',3=>'c'); print Dumper(\%test); test_sub(\%test); print Dumper(\%test); sub test_sub { my ($test) = @_; %$test = (); # gut %{$test} = (); # besser? was ist richtiger? }
Danke Euch
10 print "Hallo"
20 goto 10
- +5 replies
- rosti
  
  2011-04-09 21:02
  User since
  2011-03-19
  3566 articles
  BenutzerIn
  hi,
  
  ein Hash lebt solange, wie es Referenzen darauf gibt. Sofern Deine sub den Hash verändern soll, bietet es sich an, eine Referenz zu übergeben:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14
  
  my %h = ( 1 => 'foo', 2 => 'bar', ); f(\%h); sub f{ my $ref = shift; $ref->{1} = 'otto'; return 'egal'; } print $h{1}; # otto
  
  Der Hash lebt bis zum Ende der main(), daran ändert auch ein undef $ref innerhalb der sub f{} nichts. Erst wenn Du in der main() ein
  
  Code (perl): (dl )
  
  undef %h;
  
  notierst, ist der Hash vor dem Ende der main() tot.
  
  Übergibst Du hingegen den Hash selbst an die sub, hast Du in der sub eine Kopie davon. Es kann von Vorteil sein, einen hash zu übergeben, insbesondere dann, wenn Keys vorbelegt werden sollen mit Default-Werten:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  fx(%ENV); sub fx{ my %args = ( foo => 1, bar => 2, baz => 'default', @_ ); print $args{foo}; # 1 }
  
  %ENV wird hierbei nicht verändert.
  
  --Rolf
  http://blog.rolfrost.de/
  
  The art of steam.
  - +4 replies
  - bianca
    
    2011-04-09 21:07
    
    User since
    2009-09-13
    7016 articles
    BenutzerIn
    
    Hi Rolf,
    danke für die Ausführungen. Das interessiert mich aber alles nicht und war auch nicht meine Frage.
    
    Ich übergebe an die sub eine Referenz auf das Hash des Hauptprogramms. Und die sub soll in einem ganz bestimmten Fall das Hash leer machen. Ich habe festgestellt, dass dies mittels %$test = (); und auch mittels %{$test} = (); möglich ist und auf das selbe raus kommt.
    Kann man beide Varianten gleich wählen oder wäre eine von beiden aus bestimmten Gründen vorzuziehen?
    
    Edit: Das ist so ungefähr wie die Frage, ob print "hallo" oder print 'hallo' schneller ist.
    Manchmal bringen Befehle das selbe Ergebnis aber die ein oder andere Syntax ist dann doch vorzuziehen bzw. "best practice" und darum geht es mir hier.
    Last edited: 2011-04-09 21:12:21 +0200 (CEST)
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - rosti
      
      2011-04-09 21:16
      
      User since
      2011-03-19
      3566 articles
      BenutzerIn
      
      2011-04-09T19:07:28 bianca
      Hi Rolf,
      danke für die Ausführungen. Das interessiert mich aber alles nicht und war auch nicht meine Frage.
      
      Schade ;)
      
      Quote
      Ich übergebe an die sub eine Referenz auf das Hash des Hauptprogramms. Und die sub soll in einem ganz bestimmten Fall das Hash leer machen. Ich habe festgestellt, dass dies mittels %$test = (); und auch mittels %{$test} = (); möglich ist und auf das selbe raus kommt.
      Kann man beide Varianten gleich wählen oder wäre eine von beiden aus bestimmten Gründen vorzuziehen?
      
      Es gibt Fälle, das sind die geschweiften Klammern erforderlich, in Deinem Fall sind sie nicht erfordlerlich.
      
      Erforderlich sind die {} z.B. hier:
      
      Code (perl): (dl )
      
      1 2
      
      %{$self->{'hier ist ein hash drin'}}; # ok, der Interpreter weiß Bescheid %$self->{'hier ist ein hash drin'}; # wrong, gibt Fehlermeldung
      
      Der Grund ist die Dereferenzierung, im zweiten Fall würde der Interpreter meinen, $self wäre der hash, was manchmal, aber nicht immer so ist. Hier also ein bischen aufpassen.
      
      Rolf
      http://blog.rolfrost.de/
      
      The art of steam.
      - +2 replies
      - bianca
        
        2011-04-09 21:18
        
        User since
        2009-09-13
        7016 articles
        BenutzerIn
        
        2011-04-09T19:16:03 rosti
        Der Grund ist die Dereferenzierung, im zweiten Fall würde der Interpreter meinen, $self wäre der hash, was manchmal, aber nicht immer so ist.
        
        OK, danke dir.
        Ging mir jetzt auch nur um die Leerung des Hash.
        Das ich ihn ansonsten mit -> und nicht mit %$ oder sogar %$ -> anspreche war mir schon klar.
        Danke Dir
        10 print "Hallo"
        20 goto 10
        
        rosti
        
        2011-04-09 21:31
        
        User since
        2011-03-19
        3566 articles
        BenutzerIn
        
        Warts ab, wenn Du später komplexere Strukturen mit hashes und Arrays und Scalaren innendrinne hast, wirst Du auch ohne Fehlermeldung Dein Blaues Wunder erleben, guck mal:
        
        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 23
        
        use warnings; use strict; use Data::Dump qw(dump); my %h = ( 1 => { 1 => 'foo', 2 => 'bar', }, 2 => [], 3 => 'foo', ); clear(\%h); sub clear{ my $ref = shift; %$ref->{1} = (); # { 1 => undef, 2 => [], 3 => "foo" } %{$ref->{1}} = (); # { 1 => {}, 2 => [], 3 => "foo" } } print dump \%h;
        
        .. und nicht mal ne Warnung! Also immer schön cast'en, was gemeint ist.
        
        Rolf
        Last edited: 2011-04-09 21:34:27 +0200 (CEST)
        http://blog.rolfrost.de/
        
        The art of steam.
- +2 replies
- GwenDragon
  
  2011-04-09 21:58
  
  User since
  2005-01-17
  14835 articles
  Admin1
  
  Ich habe mir angewöhnt, öfters die {} bei Variablen und "Umwandlungen" (Casts) von Referenzen zu setzen, damit es auch bei komplexeren Konstrukten klar ist, auf was das Sigil % oder $ bezieht.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - rosti
    
    2011-04-09 22:25
    User since
    2011-03-19
    3566 articles
    BenutzerIn
    
    2011-04-09T19:58:09 GwenDragon
    Ich habe mir angewöhnt, öfters die {} bei Variablen und "Umwandlungen" (Casts) von Referenzen zu setzen, damit es auch bei komplexeren Konstrukten klar ist, auf was das Sigil % oder $ bezieht.
    
    ACK. Was ich auch manchmal mache, wenn die 'Ref->er->enz->ket->ten' länger werden...
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    my $r = $ref->{1}; # Abkürzen ;) # btw. my %hash = %{$ref->{1}}; # %hash ist eine Kopie! # und hier: my %hash = %$ref->{1}; # gibts sogar eine Fehlermeldung # Reference found where even-sized list expected at
    
    --Rolf
    http://blog.rolfrost.de/
    
    The art of steam.

View all threads created 2011-04-09 20:28.