simple http proxy

大佬教程收集整理的这篇文章主要介绍了simple http proxy，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

#!env perl
use AnyEvent::Socket;
use AnyEvent::Handle;
use Data::Dumper;
use LWP;
my $cv = AnyEvent->condvar;

my $clients={};
my $forwords={};
sub proxy_get_cb
{
    my ($fh,$lines,$req_handlE) = @_;
    my $f_hdl = new AnyEvent::Handle
                    fh => $fh,no_delay => 1,on_eof => sub {
                        my $hdl=shift;
                        delete $forWARDs->{$hdl->fh->fileno};
                        $hdl->destroy;
                    },on_error => sub {
                        my $hdl=shift;
                        delete $forWARDs->{$hdl->fh->fileno};
                        $hdl->destroy;
                    };
                $forWARDs->{fileno($fh)} = $f_hdl;
                $f_hdl->push_write($lines."\r\n\r\n");
                $f_hdl->on_read(sub{
                        my ($handlE) = @_;
                        $req_handle->push_write($handle->{rbuf});
                        $handle->{rbuf}=undef;
                    });
}
sub get_req
{
        my ($hdl,$lines) = @_;
        my @headers = split /[\r\n]+/,$lines;
        my ($method,$url) = ($headers[0] =~ m{(\w+)\s+([^\s]+)\s});
        print "method = $method,url=$url\n";
        my $port = 80;
        if ( my ($host) = ($url =~ m{http://([^/]+)}i) ) {
            ($host,$port) = split /:/,$host;
            $port = 80 unless $port;
            $headers[0] =~ s{http://[^/]+}{};
            #print "host:$host,port=$port\n";
            #proxy_get($host,$port,$hdl);
        tcp_connect $host,sub {
            my $fh = shift;
            my $h=join("\r\n",@headers);
            proxy_get_cb($fh,$h,$hdl);
        };

            #wait for next req
            $hdl->push_read(line=>"\r\n\r\n",\&get_req);
        } else {
            syswrite $hdl->fh,"http/1.0 200\r\nServer: mini_http\r\nContent-Length:5\r\n\r\ndone\n";
            delete $clients->{fileno($fh)};
            $hdl->destroy;
        }
}
tcp_server undef,7070,sub {
    my ($fh,$host,$port) = @_;
    print "client is from:$host:$port\n";
    my  $hdl = new AnyEvent::Handle
        fh => $fh,timeout =>5,on_error => sub {
            print STDERR "client disconnect for error\n";
            my $hdl=shift;
            delete $clients->{$hdl->fh->fileno};
            $hdl->destroy;
        },on_eof => sub {
            print STDERR "client disconnect\n";
            my $hdl=shift;
            delete $clients->{$hdl->fh->fileno};
            $hdl->destroy;
        };
    $hdl->push_read( line => "\r\n\r\n",\&get_req);
    $clients->{fileno($fh)}=$hdl;
};
$cv->recv;

大佬总结

以上是大佬教程为你收集整理的simple http proxy全部内容，希望文章能够帮你解决simple http proxy所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。