Makino Takaki's Page - 文書館 - Technical Tips - Simple Perl HTTP Proxy (.ja)

ちょっと簡単な proxy プログラムに、転送するファイルをかたっぱしから保存してほしかっただけなのだが、 HTTP::Proxy モジュールはクソだった (少なくとも 0.20 の段階では) ので 自分で簡単な proxy を書く羽目になった。なので、後世の人の参考になるかどうか わからないが、ここに置いておく。HTTP 以外 (FTP とか) ではうまく働かないような気がする。 #!/usr/bin/perl # Simple HTTP Proxy Program using HTTP::Daemon. # (c) 2007 by Takaki Makino http://www.snowelm.com/~t/ use strict; use HTTP::Daemon; use LWP::UserAgent; my $ua = LWP::UserAgent->new(); my $d