この日記へのリンクは
http://fulufuru.hauN.org/nikki.pl/yyyy/mm/dd.html#xx
「yyyy/mm/dd」は年月日、「x」は段落で張るのが吉。
[#01] 朝、あかるくなるまで、あそんんでいたということは、起きるのは夕方。ってことだな……(笑)。
[#02] そんなこんなで、今日もLWPであそぶ。なんか変だなぁ。
#!/usr/bin/perl
#
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use Jcode;
$ua = new LWP::UserAgent;
$request = new HTTP::Request('GET', $ARGV[0]);
$response = $ua->request($request);
if ( $response->is_success ){
print Jcode->new($response->as_string)->euc;
}else{
print $response->error_as_HTML;
}
exit;
たとえば、こんなプログラムを実行したときに表示されるHTTPヘッダ部分が変なのだ。どうみても、HTML中の<HEAD></HEAD>の部分を解釈してHTTPヘッダにしてしまっているぞ？むぅ。これはこれで、おもしろいけれど……。
[#03] どうやら、LWPのプロトコルスタックがそういう解釈をしているみたいだなぁ。HTMLとHTTPって、そういうものなのか？<meta http-equivなんかは、そういうもんだと思っていたけれど、<titleなんかもそういう解釈をするのかー。
[#04] で、結局、
#!/usr/bin/perl
#
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use Jcode;
$ua = new LWP::UserAgent;
$ua->parse_head(0);
$request = new HTTP::Request('GET', $ARGV[0]);
$response = $ua->request($request);
if ( $response->is_success ){
print Jcode->new($response->as_string)->euc;
}else{
print $response->error_as_HTML;
}
exit;
という感じで、$ua->parse_head(0)してやればいいみたい。むぅ。
[#05] ってな感じで、テレ放題。IRCしつつ、LWPの遊びは続くのであった。
Copyright(c)1996,1997,1998,1999,2000,2001,2002 ぽにし＠うらやすE-mail : konishi@ hauN.org