Konzept der Namensräume; Global, Dynamic und Lexical Scope

[Kurt]

Hi

hier mal ein anderer Ansatz wie man local eine Unterroutine redefiniert... SCNR :)

  
sub test  
{  
 my $x = shift;  
 print "\n";  
 return  sub {  
  print $x++," ";  
 }  
}  
  
  
  
*unterstest=test(10); # sub_ref auf Namen legen  
unterstest();  
unterstest();  
unterstest();  
#10 11 12  
  
{  
  local *unterstest=test(20); # sub_ref auf Namen legen  
  unterstest();  
  unterstest();  
  unterstest();  
  #20 21 22  
}  
  
unterstest();  
unterstest();  
unterstest();  
#13 14 15  
  

bye
  Kurt