Как я могу написать простой HTTP-прокси на Perl? - PullRequest
Новая
       13

Как я могу написать простой HTTP-прокси на Perl?

1 голос
/ 08 ноября 2008

Я не хочу использовать пакет HTTP :: Proxy, потому что я хочу выбросить пару запросов. Мой один лайнер выглядит так, но ломается при попытке передать заголовок: 

perl -MData::Dumper -MHTTP::Daemon -MHTTP::Status -MLWP::UserAgent -e 'my $ua = LWP::UserAgent->new;my $d=new HTTP::Daemon(LocalPort=>1999);print "Please contact me at: <", $d->url, ">\n";while (my $c = $d->accept) {while (my $r = $c->get_request) {if ($r->method eq 'GET' and $r->url->path eq "/uploader") {$c->send_response("whatever.");print Dumper($r);}else{$response=$ua->request($r->method,"http://localhost:1996".$r->uri,$r->headers,$r->content);$c->send_response($response);}}}'

отформатировано, это: 

#perl -e '
use Data::Dumper;
use HTTP::Daemon;
use HTTP::Status;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $d=new HTTP::Daemon(LocalPort=>1999);
print "Please contact me at: < ", $d->url, " >\n";
while (my $c = $d->accept) {
  while (my $r = $c->get_request) {
    if ($r->method eq 'GET' and $r->url->path eq "/uploaded") {
      $c->send_response("whatever.");
      print Dumper($r);
    } else { 
      $response = $ua -> request(
        $r->method, 
        "http://localhost:1996" . $r->uri, 
        $r->headers, 
        $r->content);
      $c->send_response($response);
    }
  }
}#'

Так что я не могу просто передать запрос, потому что мне нужно сменить хост, и я не могу просто передать заголовки, как кажется ... так что я должен сделать, чтобы он был коротким.

Так кто-нибудь может сделать это лучше одной строки?

Ответы [ 2 ]

7 голосов
/ 08 ноября 2008

Ух ты, я исправил это с помощью: 

#perl -e '
use Data::Dumper;
use HTTP::Daemon;
use HTTP::Status;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
my $d=new HTTP::Daemon(LocalPort=>1999);
print "Please contact me at: < ", $d->url, " >\n";
while (my $c = $d->accept) {
  while (my $r = $c->get_request) {
    if ($r->method eq "GET" and $r->url->path eq "/uploaded") {
      $c->send_response("whatever.");
      print Dumper($r);
    } else { 
      $response = $ua -> request( HTTP::Request->new(
        $r->method, 
        "http://localhost:1996" . $r->uri, 
        $r->headers, 
        $r->content));
      $c->send_response($response);
    }
  }
}#'

обратите внимание на HTTP::Request->new да ... так что это работает, это немного медленно. но это нормально

2 голосов
/ 08 ноября 2008

Почему вы так стараетесь написать однострочник? Почему вы не можете сохранить программу в файл? Мне просто любопытно, какова ситуация.

...