sub test_submit { my ($html_content, $click, %values) = @_; my $base_url = 'http://test.com/'; ok(my @form_list = HTML::Form->parse($html_content, $base_url)); my $form = $form_list[0]; for (keys %values) { $form->value($_, $values{$_}); } my $request = $form->click($click); my $rcontent = $request->content; ######### BEGIN parse POST DATA ######### use CGI qw(:cgi-std); my $q = CGI->new($rcontent); my $data = [$q->Vars()]; ######### END parse POST DATA ######### use Data::Dumper; warn Dumper($data); }
In reply to Re: Re: Parsing form post (content)
by mp
in thread Parsing form post (content)
by mp
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |