LWP で TEをとろう

Perl

GET /hoge.php?q=pon HTTP/1.1
TE: deflate,gzip;q=0.3
Connection: TE


TEを取りましょう。

LWP/Protocol/http.pm

my $sock = $self->socket_class->new(PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => $timeout,
KeepAlive => !!$conn_cache,
SendTE => 1,
$self->_extra_sock_opts($host, $port),
);

SendTE => 1, を SendTE => 0,

にすると取れます。