{"published":"2008-10-25 18:42:46","provider_url":"https://hatena.blog","url":"https://memo.sugyan.com/entry/20081025/1224927766","width":"100%","author_name":"sugyan","version":"1.0","type":"rich","author_url":"https://blog.hatena.ne.jp/sugyan/","categories":["Perl"],"provider_name":"Hatena Blog","title":"Perl\u3067Twitter\u3068Wassr","description":"\u3068\u308a\u3042\u3048\u305a\u6295\u7a3f\u3082\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u3063\u305f\u306e\u3067\u3001\u3042\u308b\u7a0b\u5ea6\u4f7f\u3044\u7269\u306b\u306a\u308a\u305d\u3046\u306a\u6c17\u304c\u3059\u308b #!/usr/bin/perl use strict; use warnings; use Encode; use Getopt::Std; use HTTP::Date; # Net::Wassr\u306f\u4ee5\u4e0b\u304b\u3089\u53d6\u5f97 # http://svn.coderepos.org/share/lang/perl/Net-Wassr/ use Net::Wassr; use Net::Twitter; # \u30aa\u30d7\u30b7\u30e7\u30f3\u3068\u5f15\u6570 my %opts; getopts('r:twhv', \\%opts); if ($opts{h}) { pri\u2026","blog_title":"\u3059\u304e\u3083\u30fc\u3093\u30e1\u30e2","image_url":null,"height":"190","blog_url":"https://memo.sugyan.com/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmemo.sugyan.com%2Fentry%2F20081025%2F1224927766\" title=\"Perl\u3067Twitter\u3068Wassr - \u3059\u304e\u3083\u30fc\u3093\u30e1\u30e2\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}