here a cleaned up version, I prefixed all array_refs with a_ for clarity:
use strict; use warnings; use Data::Dumper; use LWP::UserAgent; use JSON::PP; my $ua = LWP::UserAgent->new( ); $ua->agent("Mozilla"); my $segment = "Science | Research | Artificial Intelligence"; my $url='https://translate.googleapis.com/translate_a/single?client=gt +x&sl=en&tl=fr&dt=t&q=' . $segment; my $req = HTTP::Request->new(GET => $url); my $res = $ua->request($req); if ($res->is_success) { my $json_text = $res->content; my $a_decoded_json = decode_json( $json_text ); my $a_records = $a_decoded_json->[0]; foreach my $a_record (@$a_records) { print "Translation for $a_record->[1] is $a_record->[0]\n"; } } else { print "\nError connecting to server\n"; }
OUTPUT
-*- mode: compilation; default-directory: "d:/tmp/pm/" -*- Compilation started at Sun Sep 12 13:15:11 C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/google_translate.pl Translation for Science | is Sciences | Translation for Research | is Recherche | Translation for Artificial Intelligence is Intelligence artificielle Compilation finished at Sun Sep 12 13:15:12
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
In reply to Re^6: Parsing Array of arrays from json file
by LanX
in thread Parsing Array of arrays from json file
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |