Re: еще вопросик по perl

[Mikhail Gusarov <mgusarov@swsoft.com>]

You (dimka@avanto.org) wrote:

 DEO> ну да, почитал я главу про замыкания (closure) у Л.Уолла
 DEO> и откровенно говоря не понял смысла введения нового термина

sub seqgenerator_generator {
  my $seed = 0;
  return sub { return $seed += 1 };
}

my $x = seqgenerator_generator(0);
print &$x, &$x, &$x, "\n";
my $y = seqgenerator_generator(0);
print &$y, &$y, &$y, "\n";
print &$x, &$x, &$x, "\n";

Когда поймешь, как это работает - можно будет продолжить разговор.

-- 
Mikhail Gusarov
ICQ UIN: 111575219
JID: dottedmag@jabber.dottedmag.net