2008-06-18から1日間の記事一覧
use strict; use warnings; use WWW::Mechanize; use WWW::Mechanize::DecodedContent; use Encode; use XML::XPath; ## my $url = 'http://www.google.com/reader'; my $res; my $mech = WWW::Mechanize->new; # log in $res = $mech->get($url) || die $!;…