# Oh .. MaeuseMelkem angesagt ...
sub create_iter()
{ # Funktionen wird gebildet
my $i = 0;
my $inc = shift @_; # erstes Element aus Paramerliste entnehmen
return sub { $i+=$inc; return $i} #Anonyme Funktion
}my $iter = &create_iter(50);#die Referenz wird an $iter uebergeben
# nun, hierdurch wird di 50 in >>sub{$i+=$inc; return $i}<<
# verwahrt, da >>sub{$i+=$inc; return $i}<< noch nicht
# durch den garbage collector ist.
print "$iter\n"; # die Referenz wird ausgeben
for my $sth (1..20)
{
print &$iter, ' ' ; # ?verstaendlicher?
#sollte 50, 100, 150, 200, ..... ergeben
}
print "\n";
#--------------------------------------------------------
ich habe diese Bescheidenheit nicht bei mir ausprobiert,
denn ich mag keine ..., aber es koennte wie erlaeutert
funktionieren.
Datum: 04.01.2005-23:31
