|
Packit |
3f4df8 |
#!/usr/bin/perl
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use strict;
|
|
Packit |
3f4df8 |
use warnings;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
use HTTP::Tiny;
|
|
Packit |
3f4df8 |
use URI::Escape qw/uri_escape_utf8/;
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
my $url = 'http://search.cpan.org/search';
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
my %form_data = (
|
|
Packit |
3f4df8 |
query => 'DAGOLDEN',
|
|
Packit |
3f4df8 |
mode => 'author',
|
|
Packit |
3f4df8 |
);
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
my @params;
|
|
Packit |
3f4df8 |
while( my @pair = each %form_data ) {
|
|
Packit |
3f4df8 |
push @params, join("=", map { uri_escape_utf8($_) } @pair);
|
|
Packit |
3f4df8 |
}
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
my $response = HTTP::Tiny->new->request('POST', $url, {
|
|
Packit |
3f4df8 |
content => join("&", @params),
|
|
Packit |
3f4df8 |
headers => { 'content-type' => 'application/x-www-form-urlencoded' }
|
|
Packit |
3f4df8 |
});
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
print "$response->{status} $response->{reason}\n";
|
|
Packit |
3f4df8 |
|
|
Packit |
3f4df8 |
print $response->{content};
|
|
Packit |
3f4df8 |
|