戯術者の日記

use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new( GET => 'http://www.example.org/' );

$ua->agent("perl-wget");
$ua->proxy('http', 'http://proxy.example.org:8080');
$req->header( 'X-Header1' => 'hoge',
	      'X-Header2' => 'foobar',
	    );

my $res = $ua->request($req);

$res->as_string;         // レスポンス(ヘッダ+ボディ)は
$res->headers_as_string; // レスポンスヘッダ
$res->content;           // レスポンスボディ

Esc q

• 会社のPCはHTTP/HTTPSのみ社内プロキシを通せば通信可能
• coLinux <-> win は制限なし
• [coLinux] <= 192.168.0.0/24 => [win] <= 172.x.x.x => [会社proxy] <= ? => 外

<IfModule mod_proxy.c>
	Proxyrequests On
	ProxyRemote * http://proxy.example.org:8080
</IfModule>

<Proxy *>
	Order deny,allow
	Deny from all
	Allow from 192.168.0.2
</Proxy>