Исходное сообщение
"re: не взлетит" Отправлено Шёл мимо, 10-Авг-19 09:18
> не взлетит #!/usr/bin/perl use strict; use warnings; use JSON; use Data::Dumper; use Benchmark 'cmpthese'; my $json_text = '[ {   "id" : "1",   "name" : "Name1" }, {   "id" : "2",   "name" : "Name2" }, {   "id" : "3",   "name" : "Name3" }]' ; #my $json = JSON->new->decode($json_text); my $json = decode_json($json_text); print Dumper($json); sub mapng {     my @names = map { $_->{name} } @{$json}; } sub modif {     push my @names, $_->{name} for @{$json}; } sub cycle {     for ( @{$json} ) {         push my @names, $_->{name};     } } sub ptext {     my @names = ($_[0] =~ /^\s*+"name" *+: *+"([^"]*+)"/mg); #    print Dumper(@names); } #ptext($json_text); cmpthese(   -1,   {     'mapng' => sub { mapng($json) },     'modif' => sub { modif($json) },     'cycle' => sub { cycle($json) },     'ptext' => sub { ptext($json_text) },   } ); __END__ ptext  92781/s    --  -63%  -67%  -67% mapng 251601/s  171%    --  -11%  -12% cycle 281553/s  203%   12%    --   -1% modif 284630/s  207%   13%    1%    -- Если правильно понял

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>> не взлетит > [CODE] > #!/usr/bin/perl > use strict; > use warnings; > use JSON; > use Data::Dumper; > use Benchmark 'cmpthese'; > my $json_text = '[ > { > "id" : "1", > "name" : "Name1" > }, > { > "id" : "2", > "name" : "Name2" > }, > { > "id" : "3", > "name" : "Name3" > }]' > ; > #my $json = JSON->new->decode($json_text); > my $json = decode_json($json_text); > print Dumper($json); > sub mapng { > my @names = map { $_->{name} } @{$json}; > } > sub modif { > push my @names, $_->{name} for @{$json}; > } > sub cycle { > for ( @{$json} ) { > push my @names, $_->{name}; > } > } > sub ptext { > my @names = ($_[0] =~ /^\s*+"name" *+: *+"([^"]*+)"/mg); > # print Dumper(@names); > } > #ptext($json_text); > cmpthese( > -1, > { > 'mapng' => sub { mapng($json) }, > 'modif' => sub { modif($json) }, > 'cycle' => sub { cycle($json) }, > 'ptext' => sub { ptext($json_text) }, > } > ); > __END__ > [/CODE] > ptext 92781/s -- -63% -67% > -67% > mapng 251601/s 171% -- -11% -12% > cycle 281553/s 203% 12% -- > -1% > modif 284630/s 207% 13% 1% > -- > Если правильно понял
	Введите код, изображенный на картинке: