即席proxy
#!/usr/bin/perl use strict; use warnings; use HTTP::Daemon; use LWP::UserAgent; my $d = HTTP::Daemon->new( LocalPort => 3000, ) or die $!; while (my $c = $d->accept) { while (my $request = $c->get_request) { warn $request->as_string; my $ua = LWP::UserAgent->new; my $response = $ua->request($request); warn $response->as_string; $c->send_response($response); } $c->close; undef $c; }
こんなん書いて
http_proxy="localhost:3000" wget http://d.hatena.ne.jp/lopno/
とかすると何しゃべってるかわかる。perlってべんりだわぁ