my %rec; for my $table (@{ $response->{body}{table} }) { for my $tr (@{ $table->{tr} }) { for my $td (@{ $tr->{td} }) { my ($key) = grep $_ ne 'content', keys(%$td); $rec{$key} = $td->{$key}; } } } print("$rec{LastName}\n"); # For example
In reply to Re^4: Parse HTML Code for hidden values
by ikegami
in thread Parse HTML Code for hidden values
by benchtoplabs
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |