Variablenscope (gelöst) (Allgemeines zu Perl)

[thread]18038[/thread]

Variablenscope [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+8 replies
bianca

2013-01-09 15:34
User since
2009-09-13
7016 Artikel
BenutzerIn
Hallo!
Ich bin gerade etwas überrascht, dass folgender Code kein "use of uninitialized value %test in 13" bringt:
Code (perl): (dl )

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

#!/usr/bin/perl -w use strict; use warnings; use Data::Dumper; my %test = ( foo => 'bar', ); my %code = ( code => sub { my ($ref) = @_; $test{foo} = $ref; }, ); print Dumper(\%test)."\n"; $code{code}->('bar2'); print Dumper(\%test)."\n";
Wieso muss ich denn die Variable %test nicht in die sub übergeben?
Ist das eine bestimmte Konstellation die zufällig funktioniert oder ist das völlig OK und in Ordnung?
Geht mir in diesem Fall um saubere Programmierung.
Danke
10 print "Hallo"
20 goto 10
- Gast Gast
  
  2013-01-09 15:37
  
  weil my %test im übergeordneten Block gültig ist ;-)
  Last edited: 2013-01-09 15:39:58 +0100 (CET)
- +4 replies
- GwenDragon
  
  2013-01-09 15:42
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Die Variable %test ist im ganzen Block (hier main::*) sichtbar und mit dem Schlüssel foo belegt. Deswegen kann die sub auch auf Variablen von main zugreifen ohne Warnungen zu erzeugen.
  Last edited: 2013-01-09 15:46:09 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - Gast Gast
    
    2013-01-09 15:44
    
    Du meinst sicher die Referenz auf die Sub ...
    Last edited: 2013-01-09 15:47:15 +0100 (CET)
    - GwenDragon
      
      2013-01-09 16:09
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Splitted to Variablenscope split
      
      Original message by 'GwenDragon':
      
      Quote
      Ich dachte biancas Frage bezog sich auf %test und ...
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - renee
      
      2013-01-09 17:35
      
      User since
      2003-08-04
      14371 Artikel
      ModeratorIn
      
      Guest Gast
      Du meinst sicher die Referenz auf die Sub ...
      
      Nein, es kommt auf die Subroutine an (auch wenn diese hier anonym ist)
      
      Code: (dl )
      
      1 2 3
      
      $ perl -Mstrict -E '{ my %foo = (test => 1); my $sub = \&test; $sub->() } sub test { print $foo{test} }' Global symbol "%foo" requires explicit package name at -e line 1. Execution of -e aborted due to compilation errors.
      
      => %foo ist zu dem Zeitpunkt der Referenzerzeugung gültig
      
      Code: (dl )
      
      1 2
      
      $ perl -Mstrict -E '{ my %foo = (test => 1); sub test { print $foo{test} } } my $sub = \&test; $sub->()' 1
      
      => %foo ist zum Zeitpunkt der Referenzerzeugung nicht mehr gültig
      OTRS-Erweiterungen (http://feature-addons.de/)
      Frankfurt Perlmongers (http://frankfurt.pm/)
      --
      
      Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
      Perl-Entwicklung: http://perl-services.de/
- Muffi
  
  2013-01-09 15:55
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Selbst wenn %test beim Aufruf nicht mehr im Scope wäre, kann Perl Closures.
  Er merkt sich, dass es in der sub verwendet wird und wirfts deshalb nicht weg.
  
  [EDIT] Sowas funktioniert z.B.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  my %code; { my %test = ( foo => 'bar', ); %code = ( code => sub { my ($ref) = @_; $test{foo} = $ref; }, ); } # eigentlich endet hier der Scope für %test # der Aufruf funktioniert aber trotzdem $code{code}->('bar2');
  
  Last edited: 2013-01-09 16:10:04 +0100 (CET)
  1 + 1 = 10
- bianca
  
  2013-01-09 15:55
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Ja, verstanden, danke euch.
  10 print "Hallo"
  20 goto 10

View all threads created 2013-01-09 15:34.