Perl 发送http 请求。

HTTP GET Perl example

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

use LWP::UserAgent;   my $ua = LWP::UserAgent->new;   my $server_endpoint = "http://192.168.1.1:8000/service" ;   # set custom HTTP request header fields my $req = HTTP::Request->new( GET => $server_endpoint ); $req ->header( 'content-type' => 'application/json' ); $req ->header( 'x-auth-token' => 'kfksj48sdfj4jd9d' );   my $resp = $ua ->request( $req ); if ( $resp ->is_success) {      my $message = $resp ->decoded_content;      print "Received reply: $message\n" ; } else {      print "HTTP GET error code: " , $resp ->code, "\n" ;      print "HTTP GET error message: " , $resp ->message, "\n" ; }

HTTP POST Perl example

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

use LWP::UserAgent;   my $ua = LWP::UserAgent->new;   my $server_endpoint = "http://192.168.1.1:8000/service" ;   # set custom HTTP request header fields my $req = HTTP::Request->new( POST => $server_endpoint ); $req ->header( 'content-type' => 'application/json' ); $req ->header( 'x-auth-token' => 'kfksj48sdfj4jd9d' );   # add POST data to HTTP request body my $post_data = '{ "name": "Dan", "address": "NY" }' ; $req ->content( $post_data );   my $resp = $ua ->request( $req ); if ( $resp ->is_success) {      my $message = $resp ->decoded_content;      print "Received reply: $message\n" ; } else {      print "HTTP POST error code: " , $resp ->code, "\n" ;      print "HTTP POST error message: " , $resp ->message, "\n" ; } 注意： 参数的传递格式有： $req->header('Content-Type' => 'application/x-www-form-urlencoded; charset=utf-8'); #$req->header('content-type' => 'application/json'); #$req->content_type('text/html') 对应的参数格式是不一样的。