\u30af\u30e9\u30a6\u30c9\u30b5\u30fc\u30d0\u3092 GMO \u30af\u30e9\u30a6\u30c9\u304b\u3089 Amazon Web Service \u306e EC2 \u306b\u79fb\u884c\u3059\u308b\u306b\u5f53\u305f\u3063\u3066\u3001\u4eca\u307e\u3067\u306e RSS \u30af\u30ed\u30fc\u30e9\u3092\u4fee\u6b63\u3002
\u6b63\u76f4\u3082\u306e\u3059\u3054\u3044\u4fee\u6b63\u3057\u305f\u3002<\/p>\n\n\n\n\n\n\n\n
#!\/usr\/bin\/perl<\/em>\n\nuse strict;\nuse warnings;\nuse Encode;\nuse LWP::Simple;\nuse XML::RSS;\nuse Time::Local;\nuse HTTP::Date;\nuse DateTime::Format::HTTP;\n#binmode(STDOUT, \":utf8\");<\/em>\n\nmy<\/strong> @url = (\n\"https:\/\/pocolog.bass-world.net\/feed\/\",\n\"https:\/\/pocolog.bass-world.net\/tech\/feed\/\",\n\"https:\/\/pocolog.bass-world.net\/book\/feed\/\",\n\"https:\/\/pocolog.bass-world.net\/gadgets\/feed\/\",\n\"https:\/\/pocolog.bass-world.net\/music\/feed\/\",\n\"https:\/\/pocolog.bass-world.net\/cars\/feed\/\",\n\"https:\/\/pocolog.bass-world.net\/creditcard\/feed\/\",\n\"https:\/\/pocolog.bass-world.net\/travel\/feed\/\"\n);\nmy<\/strong> $line = \"\";\n\nforeach my<\/strong> $url(@url){\nmy<\/strong> $document = LWP::Simple::get($url) or die();\nmy<\/strong> $rss = XML::RSS->new;\n$rss->parse($document);\n$line .= \"<h3><a href = '\" . $rss->channel->{link} . \"'>\" . $rss->channel->{title} . \"<\/a><\/h3>\\n\";\n$line .= \"<p>\" . $rss->channel->{description} . \"<\/p>\\n\";\n\nmy<\/strong> $counter = 0;\n$line .= \"<ul>\\n\";\n\nfor(@{$rss->{items}}){\n$counter++;\nif(!$_){\nlast;\n}\nif($counter > 5){\nlast;\n}\n\nmy<\/strong> $datetime = $_->{pubDate};\nif(!$datetime){\nlast;\n}\n\nmy<\/strong> $dt = DateTime::Format::HTTP->parse_datetime($datetime);\n$dt->set_time_zone('Asia\/Tokyo');\nmy<\/strong> $date = $dt->year . '.' . $dt->month . '.' . $dt->day;\n$line .= \"<li>\" . $date;\n$line .= \" - \";\n$line .= \"<a href = '\" . $_->{link} . \"'>\";\n$line .= $_->{title} . \"<\/a><\/li>\\n\";\n}\n$line .= \"<\/ul>\\n\";\n}\nprint encode('utf-8', $line);\n\n#open(BLOG, \">\", \".\/www\/blogdata.html\");<\/em>\n#print BLOG $line;<\/em>\n#close(BLOG);<\/em>\n<\/pre>\n\n\n\n<\/p>\n","protected":false},"excerpt":{"rendered":"
\u30af\u30e9\u30a6\u30c9\u30b5\u30fc\u30d0\u3092 GMO \u30af\u30e9\u30a6\u30c9\u304b\u3089 Amazon Web Service \u306e EC2 \u306b\u79fb\u884c\u3059\u308b\u306b\u5f53\u305f\u3063\u3066\u3001\u4eca\u307e\u3067\u306e RSS \u30af\u30ed\u30fc\u30e9\u3092\u4fee\u6b63\u3002\u6b63\u76f4\u3082\u306e\u3059\u3054\u3044\u4fee\u6b63\u3057\u305f\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,7,10,11,17],"tags":[],"class_list":["post-256","post","type-post","status-publish","format-standard","hentry","category-amazon-aws","category-html","category-linux","category-perl","category-17"],"_links":{"self":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/posts\/256","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/comments?post=256"}],"version-history":[{"count":0,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/posts\/256\/revisions"}],"wp:attachment":[{"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/media?parent=256"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/categories?post=256"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/pocolog.bass-world.net\/tech\/wp-json\/wp\/v2\/tags?post=256"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}