{"published":"2021-04-19 00:00:00","author_name":"ryuichi1208","blog_title":"\u5730\u65b9\u30a8\u30f3\u30b8\u30cb\u30a2\u306e\u5b66\u7fd2\u65e5\u8a18","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fryuichi1208.hateblo.jp%2Fentry%2F2021%2F04%2F19%2F000000\" title=\"\u3010Perl\u3011usage\u306e\u66f8\u304d\u65b9\u30e1\u30e2 - \u5730\u65b9\u30a8\u30f3\u30b8\u30cb\u30a2\u306e\u5b66\u7fd2\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","title":"\u3010Perl\u3011usage\u306e\u66f8\u304d\u65b9\u30e1\u30e2","categories":[],"provider_name":"Hatena Blog","url":"https://ryuichi1208.hateblo.jp/entry/2021/04/19/000000","description":"use Getopt::Long; use Data::Validator; my $tweet_id; my $print_key; my $help; GetOptions('i=i' => \\$tweet_id, 'p=s' => \\$print_key, h => \\$help); if ($help) { die show_help(); } validate( tweet_id => $tweet_id, print_key => $print_key ); sub validate { eval { state $rule = Data::Validator->new( twee\u2026","author_url":"https://blog.hatena.ne.jp/ryuichi1208/","blog_url":"https://ryuichi1208.hateblo.jp/","type":"rich","height":"190","width":"100%","image_url":null,"version":"1.0"}