OpenForum RSS: �� JSON

�� JSON (�� )

Sat, 10 Aug 2019 06:34:32 GMT

��

re: �� (�� )

Sat, 10 Aug 2019 06:18:57 GMT

> ��

[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 28

�� JSON (��)

Sat, 09 Mar 2019 15:31:25 GMT

�� , �� ,
�� ..

�� (��),

�� , �� ,
�� map �� , �� ,
� �� for (foreach) �, ��, ��

� �� (�� ) �� ϣ ��
"�� ", �� - ��Σ�, ��? ))

�� proof, ��
[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, $_->{na

�� JSON (��)

Wed, 06 Mar 2019 07:31:07 GMT

> �� :
> push @names, $_->{name} for @$json;

� �� for �� , ��
� �� , ��

for ( @{$json} ) {
push @names, $_->{name};
}

�� ,
�� ݣ �� , ��
(� �� ) ))

�� JSON (��)

Wed, 06 Mar 2019 07:20:14 GMT

> �� . �� .
> my @names = $json_str =~ m/name["\s]*:\s*"([^"]+)/g ;

��

�� JSON (erera22)

Mon, 18 Feb 2019 17:44:10 GMT

�� :
push @names, $_->{name} for @$json;

�� JSON (��)

Thu, 14 Feb 2019 10:53:00 GMT

�� . �� .

my @names = $json_str =~ m/name["\s]*:\s*"([^"]+)/g ;

�� JSON (GoldenCeylon)

Mon, 11 Feb 2019 09:23:37 GMT

> print join("," , map{ $_->{name}} @{$json});

��:
@names = map{$_->{name}} @{$json};
��
@names = map{$_->{name}} @$json;

�� JSON (��)

Sun, 10 Feb 2019 02:06:30 GMT

> �� !
> �� ..
> ��
> �� ?
> � �� ӣ!
> ��.

Ok google!
�� ?

OpenForum RSS: ������� ������� ������ �� ������ JSON

������� ������� ������ �� ������ JSON (��� ����)

re: �� ������� (��� ����)

������� ������� ������ �� ������ JSON (�������)

������� ������� ������ �� ������ JSON (�������)

������� ������� ������ �� ������ JSON (�������)

������� ������� ������ �� ������ JSON (erera22)

������� ������� ������ �� ������ JSON (������)

������� ������� ������ �� ������ JSON (GoldenCeylon)

������� ������� ������ �� ������ JSON (������)

OpenForum RSS: �� JSON

�� JSON (�� )

re: �� (�� )

�� JSON (��)

�� JSON (��)

�� JSON (��)

�� JSON (erera22)

�� JSON (��)

�� JSON (GoldenCeylon)

�� JSON (��)