Variablenübernahme in Subroutine (gelöst) (Allgemeines zu Perl)

[thread]15254[/thread]

Variablenübernahme in Subroutine [gelöst]

Leser: 19

Articles: hide open all | hide show old branches

+8 replies
Sven_123

2010-07-06 13:45
User since
2010-06-01
120 Artikel
BenutzerIn
Edit: Teil 1 (dieser Post) ist gelöst, mein nächstes Problem in meiner Antwort auf diesen...

Ich habe eine sich selbst aufrufende Subroutine, in der selbst eine Subroutine steckt. In der äußeren deklariere ich nun eine Variable mit my und weise ihr einen Wert zu.
Warum wird der inneren Subroutine immer der erste Wert zugewiesen?

Bsp:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11

bla(1); sub bla{ my $x=$_[0]; print "bla: $x"; blubb(); sub blubb{ print " blubb: $x\n"; } if ($x <= 5){bla(($x+1))} }
Output:
Code: (dl )

1 2 3 4 5 6

bla: 1 blubb: 1 bla: 2 blubb: 1 bla: 3 blubb: 1 bla: 4 blubb: 1 bla: 5 blubb: 1 bla: 6 blubb: 1
Ich hätte eigentlich auch bei blubb ein 1, 2, 3,... erwartet.
Last edited: 2010-07-06 14:34:46 +0200 (CEST)
- +2 replies
- esskar
  
  2010-07-06 13:48
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  weil die function blubb nur einmal deklariert wird, und dann mit der ersten x definiert.
  
  arbeite mit closures
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9
  
  bla(1); sub bla{ my $x=$_[0]; print "bla: $x"; my $blubb = sub { print " blubb: $x\n"; }; $blubb->(); if ($x <= 5){bla($x+1)} }
  
  EDIT: strichpunkt vergessen
  Last edited: 2010-07-06 13:50:34 +0200 (CEST)
  - Sven_123
    
    2010-07-06 13:50
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Ah, vielen Dank - das erspart einiges an Variablen in @_ mit übergeben... :)
- moritz
  
  2010-07-06 13:50
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  Hallo,
  
  das liegt daran, dass Perl 5 keine ordentlichen lokalen Subroutinen kennt. Mit use warnings bekommst du die Warnung:
  
  Code: (dl )
  
  Variable "$x" will not stay shared at foo.pl line 9.
  
  Frag dich einfach, was passieren sollte, wenn du blubb() ausserhalb der Funktion bla aufrufst - welchen Wert sollte $x haben?
  
  Abhilfe schafft es, die Routine in einer lexikalischen Variable zu speichern:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  use warnings; use strict; bla(1); sub bla{ my $x=$_[0]; print "bla: $x"; my $blubb = sub { print " blubb: $x\n"; }; $blubb->(); if ($x <= 5){bla(($x+1))} }
  
  Perl 6 - Perls Zukunft
- +4 replies
- Sven_123
  
  2010-07-06 14:32
  User since
  2010-06-01
  120 Artikel
  BenutzerIn
  Hmm...die Lösung für das obige funktioniert, nur hat sich dadurch ein neues Problem ergeben: Ich will eigentlich auch die innere Subroutine sich selbst aufrufen lassen, nun beschwert er sich aber, dass diese an der Stelle nicht deklariert ist.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use warnings; bla(1); sub bla{ my $x=$_[0]; print "bla: $x\n"; my $blubb = sub{ my $i=$x**$_[0]; print " blubb: $x\n"; if ($i <= 25){$blubb->(($_[0]+1))} }; $blubb->(1); if ($x <= 5){bla(($x+1))} }
  
  "Global symbol "$blubb" requires explicit package name at ./test line 13."
  
  Gibt's da wieder eine simple Abhilfe, wie oben, oder muss ich es dann komplett anders aufbauen?
  - +3 replies
  - moritz
    
    2010-07-06 14:36
    User since
    2007-05-11
    923 Artikel
    HausmeisterIn
    
    Das Problem ist, dass Perl 5 lexikalische Variablen erst in der Zeile (bzw im Statement) nach der Deklaration kennt.
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7
    
    # nicht ok my $blubb = sub { $blubb }; # ok: my $blubb; $blubb = sub { $blubb };
    
    Perl 6 - Perls Zukunft
    - Sven_123
      
      2010-07-06 14:37
      
      User since
      2010-06-01
      120 Artikel
      BenutzerIn
      
      Nochmals vielen Dank. :)
    - pq
      
      2010-07-06 14:38
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      dann aber vorsicht wegen memory leaks, wenn man sowas benutzt. ich hatte sowohl in HTC als auch in Parse::BBCode ein leak, weil ich subrefs in sich selbst benutzt habe.
      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

View all threads created 2010-07-06 13:45.