After converting your JSON to perl...
#!/usr/bin/perl use strict; # https://perlmonks.org/?node_id=11137065 use warnings; my $DATA = { required => [ { docs => [{ number => 1, sec => "123A" }], name => "Mary Lou" }, { docs => [{ number => 1, sec => 4567 }], name => "John De" }, { docs => [{ number => 1, sec => 8763 }], name => "Smith Doe" }, { docs => [{ number => 1, sec => "123B" }], name => "Joe De" }, ], }; for my $dta ( @{ $DATA->{required} } ) { my $sec = $dta->{docs}[0]{sec}; my $number = $dta->{docs}[0]{number}; my $name = $dta->{name}; print <<END; "sec": "$sec", "number": "$number" "name": "$name" END }
Outputs
"sec": "123A", "number": "1" "name": "Mary Lou" "sec": "4567", "number": "1" "name": "John De" "sec": "8763", "number": "1" "name": "Smith Doe" "sec": "123B", "number": "1" "name": "Joe De"
In reply to Re: Looping through an array
by tybalt89
in thread Looping through an array
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |