, omfatter dette kapitel at registrere og afkode json objekter ved hjælp af perl programmeringssprog.lad os starte med at forberede miljø til at starte vores programmering med perl for json.,, miljø, inden du begynder at ind - og afkodning af json ved hjælp af perl, du er nødt til at installere json modul, der kan fås fra cpan.når du har downloadet json-2.53.tar.gz eller enhver anden seneste udgave, følger de foranstaltninger, der er nævnt nedenfor −, $tjære xvfz json-2.53.tar.gz $cd json-2.53 $perl makefile.pl $tjene $at installere,, json opgaver, funktion, biblioteker encode_json omdanner givet perl datastruktur for utf - 8 indkodet, binære snor.decode_json dekoder en json snor.to_json omdanner givet perl datastruktur for en json snor.from_json forventer en json snor og forsøger at analysere det, der vender tilbage som reference.convert_blessed bruge denne funktion med sande værdi, således at perl kan bruge to_json metode på objektet er klasse til at konvertere et objekt til json., der json i perl (encode_json), frisk encode_json() funktion omdanner givet perl datastruktur for utf - 8 indkodet, binære snor.,, syntaks, $json_text = encode_json ($perl_scalar) eller $json_text = json - > nye - > utf - 8 - > koder ($perl_scalar), f.eks. følgende eksempel viser arrays under json med perl −,, #!/bar /bin /perl anvendelse json; min% rec_hash = (»a« = > 1, b = > 2, c = > 3, d = > 4, e = > 5); mine $json = encode_json 1% rec_hash; trykte "$json \\ n", mens fuldbyrdende, dette vil få følgende resultat −,, ("e": 5, "c": 3, "a": 1, "b": 2, "d": 4), er følgende. viser, hvor perl objekter kan omdannes til json −,, #!/usr/bin/perl package Emp; sub new { my $class = shift; \t my $self = { name => shift, hobbies => shift, birthdate => shift, }; \t bless $self, $class; return $self; } sub TO_JSON { return { %{ shift() } }; } package main; use JSON; my $JSON = JSON->new->utf8; $JSON->convert_blessed(1); $e = new Emp( "sachin", "sports", "8/5/1974 12:20:03 pm"); $json = $JSON->encode($e); print "$json\ "; , ,On executing, it will produce the following result −, , {"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"} , ,Decoding JSON in Perl (decode_json), ,Perl decode_json() function is used for decoding JSON in Perl. denne funktion er tilbage værdien afkodede fra json til en passende perl type.,, syntaks, $perl_scalar = decode_json $json_text eller $perl_scalar = json - > nye - > utf - 8 - > afkode ($json_text), f.eks. følgende eksempel viser, hvor perl kan anvendes til afkode json objekter.her vil du nødt til at installere data: dumper modul, hvis du ikke har den på din maskine.,, #!/bar /bin /perl anvendelse json; anvendelse af data:: dumper. $json = "(" a ": 1," b ": 2," c ": 3," d ": 4," e ": 5}; $tekst = decode_json ($json); trykte dumper ($tekst), om at udføre, det giver følgende resultat −, $var1 = {e = > 5, c = > 3, a = > 1, b = > 2, d = > 4),,,