?????????? ????????? - ??????????????? - /home/agenciai/public_html/cd38d8/benchmark.tar
???????
tlt.pl 0000644 00000000526 15125143363 0005712 0 ustar 00 #!perl -w use strict; use Benchmark qw(); our $t; BEGIN{ $t = Benchmark->new; } END{ print 'time: ', Benchmark->new->timediff($t)->timestr, "\n"; } use Test::LeakTrace::Script @ARGV; use ExtUtils::MakeMaker (); # a large module { my %hash; for(1 .. 1000){ $hash{$_}++; $hash{$_}++; } my %a; my %b; $a{b} = \%a; $b{a} = \%b; } nothing.pl 0000644 00000000444 15125143363 0006554 0 ustar 00 #!perl -w use strict; use Benchmark qw(); our $t; BEGIN{ $t = Benchmark->new; } END{ print 'time: ', Benchmark->new->timediff($t)->timestr, "\n"; } use ExtUtils::MakeMaker (); # a large module { my %hash; for(1 .. 1000){ $hash{$_}++; } my %a; my %b; $a{b} = \%a; $b{a} = \%b; } dlt_fast.pl 0000644 00000000517 15125143363 0006707 0 ustar 00 #!perl -w use strict; use Benchmark qw(); our $t; BEGIN{ $t = Benchmark->new; } END{ print 'time: ', Benchmark->new->timediff($t)->timestr, "\n"; } use Devel::LeakTrace::Fast; use ExtUtils::MakeMaker (); # a large module { my %hash; for(1 .. 1000){ $hash{$_}++; $hash{$_}++; } my %a; my %b; $a{b} = \%a; $b{a} = \%b; } devel_leaktrace.pl 0000644 00000000512 15125143363 0010214 0 ustar 00 #!perl -w use strict; use Benchmark qw(); our $t; BEGIN{ $t = Benchmark->new; } END{ print 'time: ', Benchmark->new->timediff($t)->timestr, "\n"; } use Devel::LeakTrace; use ExtUtils::MakeMaker (); # a large module { my %hash; for(1 .. 1000){ $hash{$_}++; $hash{$_}++; } my %a; my %b; $a{b} = \%a; $b{a} = \%b; }
| ver. 1.6 |
Github
|
.
| PHP 8.2.30 | ??????????? ?????????: 0.01 |
proxy
|
phpinfo
|
???????????