AnyEvent::HTTPD和AnyEvent::HTTP使用实例

use AnyEvent::HTTPD;
use AnyEvent::HTTP;

my $httpd = AnyEvent::HTTPD->new (port => 9090);
my $ip = "127.0.0.1";

$httpd->reg_cb (
    '/' => sub {
        my ($httpd, $req) = @_;
        my $urlpath = $req->url->path;
        http_request PURGE => "http://${ip}${urlpath}", headers=> { "host"=>"host.domain.com"}, sub {
            my ($body, $hdr ) = @_;
            $req->respond(["$hdr->{'Status'}","$hdr->{'Reason'}",{'Content-Type' => 'text/html'}]);
        };
    },
);

$httpd->run;