Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re: Remote web form post

by linuxer (Curate)
on Aug 20, 2011 at 19:00 UTC ( #921436=note: print w/replies, xml ) Need Help??

in reply to Remote web form post

Where do you define and fill $res?

That variable is never defined or filled and therefore is undefined.

Maybe you should consider to use strict and warnings.


I had another look at your script and think, there are more flaws than the one I previously mentioned.

  • $req should contain a HTTP::Request object; so you should create one.
  • POST 'http://...' is missing the correct operator between POST and the URL string
  • $ua->request() returns a response object; you should give the variable a better fitting name than $request.

Replies are listed 'Best First'.
Re^2: Remote web form post
by Anonymous Monk on Aug 21, 2011 at 01:19 UTC

    is missing the correct operator between POST and the URL string

    Sure its not :)

    use DDS; use HTTP::Request::Common qw(POST); Dump( POST '', [ qw' username joe password joe ' ] ) +; __END__ $HTTP_Request1 = bless( { _content => 'username=joe&password=joe', _headers => bless( { "content-length" => 25, "content-type" => 'application/x-ww +w-form-urlencoded' }, 'HTTP::Headers' ), _method => 'POST', _uri => \do { my $v = '' } }, 'HTTP::Request' ); bless( $HTTP_Request1->{_uri}, 'URI::http' );

    I agree with the rest of your words

      Ah, thank you for the hint. I tested with HTTP::Request, which I prefer...

      I thought of POST being a bareword and not an exported function from HTTP::Request::Common.

      Well, now I see, I don't like that style... ;-)

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://921436]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2021-04-11 00:48 GMT
Find Nodes?
    Voting Booth?

    No recent polls found