Podivne prodlevy

[Pavel Smerk]

	Zdravim jeste jednou,

skript jsem trosinku modifikoval:

$ cat time.pl
#!/usr/bin/perl -w
use strict;
warn "perl $] on $^O\n";
my ($tmp, %tmp);
$tmp{$tmp} = " " x 10 while ++$tmp < 1000000;
warn "pred ", scalar localtime, "\n";
foreach (keys %tmp) {
        warn "behem ", scalar localtime, "\n" unless $tmp++ % 100000;
        }
warn "po ", scalar localtime, "\n";

$ date ; perl ./time.pl ; date
Pá lis 15 11:13:08 CET 2002
perl 5.006001 on linux
pred Fri Nov 15 11:13:14 2002
behem Fri Nov 15 11:13:14 2002
behem Fri Nov 15 11:13:14 2002
behem Fri Nov 15 11:13:14 2002
behem Fri Nov 15 11:13:14 2002
behem Fri Nov 15 11:13:14 2002
behem Fri Nov 15 11:13:14 2002
behem Fri Nov 15 11:13:15 2002
behem Fri Nov 15 11:13:15 2002
behem Fri Nov 15 11:13:15 2002
behem Fri Nov 15 11:13:15 2002
po Fri Nov 15 11:13:30 2002
Pá lis 15 11:15:05 CET 2002

Cim jsou zpusobeny casove prodlevy mezi koncem cyklu a dalsim provedenym
prikazem? A mezi poslednim prikazem a koncem vykonavani celeho skriptu? Umel
bych si predstavit, ze uvolnuje pamet, kterou zabralo pole keys %tmp a pak
pamet, kterou zabralo %tmp. Ale zeby naplneni trvalo sest vterin a
uvolnovani stodeset? Nebo dela nejakou jinou dlouhotrvajici magii?

								Diky	P.