use strict; use warnings; my $v= [ bless( { 'class' => 'c-form__select', 'current' => 0, 'id' => 'radius', 'menu' => [ { 'name' => 'Distance (national)', 'value' => '1', 'seen' => 1 } ], 'type' => 'option', 'aria-label' => 'Choose a distance from your postco +de', 'name' => 'radius', 'idx' => 1 }, 'HTML::Form::ListInput' ), bless( { }, 'HTML::Form::ListInput' ), bless( { }, 'HTML::Form::ListInput' ), bless( { }, 'HTML::Form::ListInput' ) ]; my $LookForName = 'radius'; for my $entry (grep {$_->{name} and $_->{name} eq $LookForName} @$v) +{ print "Found $LookForName:\n"; for my $menuItem (@{ $entry->{menu} }){ print "\tValue:",$menuItem->{value},"\n"; } }
Memory fault -- brain fried
In reply to Re: How do I pull HTML form option values?
by NetWallah
in thread How do I pull HTML form option values?
by unklejunky
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |