camel

直ってます直ってます。

404 Blog Not Found:perl - それもこれもIO::Allで
実はかつてはIO::All::LWPを追加インストールすることで以下も動いていた。 
% perl -MIO::All -le 'print io("http://www.example.com/")'
ところが、今はこのIO::All::LWPが壊れている。

このとおり。

% perl -MIO::All::LWP -le 'print IO::All::LWP->VERSION'
0.14
% perl -MIO::All -le 'print io("http://blog.livedoor.jp/dankogai/")->all' | perl -nle 'print if 1..m,</head>,i'
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=euc-jp" />
<META name="verify-v1" content="Uxmj8tnJj+ZPANUvVbU+R32ms/SxLAWtslEspS7iqIE=" />
<link rel="shortcut icon" href="/dankogai/favicon.ico" />
<link rel="stylesheet" href="http://blog.livedoor.jp/dankogai/site.css" type="text/css" />
<link rel="alternate" type="application/rss+xml" title="RSS" href="http://blog.livedoor.jp/dankogai/index.rdf" />
<link rel="alternate" type="application/atom+xml" title="Atom" href="http://blog.livedoor.jp/dankogai/atom.xml" />


<title>404 Blog Not Found</title>
</head>

あとはどんなメソッドを付け加えようか....

Dan the Hackerthoner