Podivne prodlevy

[Petr Chloupek]

hm, to je zajimave, zkuste si na druhem terminalu pustit
top -d1 a premyslet co se asi deje v pameti pocitace,
treba vas to priblizi k reseni

On Fri, 15 Nov 2002 10:18:53 +0000, Pavel Smerk wrote:

> 	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.