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

Mon, 21 Nov 2005 02:09:08 -0800 

You ([EMAIL PROTECTED]) 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: [EMAIL PROTECTED]


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Ответить