Randy W. Sims wrote:
>
> The following code connects to a linksys router and resets the
> connection. I can't seem to find the proper way to access the contents
> of the HTML::Form::InputText object without accessing it's internal data
> structure.
>
> This is part of the expression in question:
> my $status = $1 if $input->{value_name}
>
> Anybody know a proper way to get this value?
Hi Randy.
You mean this stuff?
>
> # Determine current connection status
> my $form = $mech->form_number( 1 ) or die "Can't select form";
> my $input = $form->find_input( 'pppoeAct' ) or die "Can't find input";
> my $status = $1 if $input->{value_name} =~ /Status:
> (Connected|Connecting|Disconnected)/;
Have you looked at
perldoc HTML::Form
I think $input->value_names() will do what you want. Beware: it returns an array
regardless
of context.
HTH,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
