Hello amaa11,
I see that you added the code tags, but now your code is no longer valid perl syntax due to the appearance of extra <br> tags on every line.
UPDATE: I see that you fixed the formatting problems, but now when I run your code I get an error related to improperly formatted JSON. When I run your code as is, I get this error
'"' expected, at character offset 811 (before "<br>\n "count...") at t.pl line 108.
When I manually remove the offending <br> tag, I finally get the error that you mentioned
Not a HASH reference at t.pl line 110. | [reply] [d/l] [select] |
Dear kevbot,
Yes I updated the all post as you asked
still have a small problem when I print the second element in the array
print 'ge= ' . $decoded->{_embded}{stes}[1]{ge}, "\n"
I got this error.
Use of uninitialized value in concatenation (.) or string | [reply] [d/l] |
The array reference given by
$decoded->{_embded}{stes}
only has one element so the data is at index 0. Try this,
$decoded->{_embded}{stes}[0]{ge}
| [reply] [d/l] [select] |