{"provider_url":"https://hatena.blog","version":"1.0","type":"rich","image_url":"https://images-fe.ssl-images-amazon.com/images/I/51PBFWZSTBL._SL160_.jpg","width":"100%","height":"190","blog_title":"\u3061\u3083\u307e\u3050\u306e\u5099\u5fd8\u9332","provider_name":"Hatena Blog","url":"https://tyamaguc07.hatenadiary.org/entry/20110328/p1","title":" \u7d9a\u30fb\u306f\u3058\u3081\u3066\u306ePerl 10\u7ae0","categories":["Perl"],"published":"2011-03-28 00:00:00","author_name":"tyamaguc07","description":"10\u7ae0 \u5927\u898f\u6a21\u306a\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u69cb\u7bc9 10.2 eval\u306b\u3088\u308b\u30b3\u30fc\u30c9\u306e\u633f\u5165 # Example.pm sub println { my $message = shift; print \"$message\\n\"; } # sample.pl sub load_common_subroutin { my $pm_file = shift; open my $code_fh, $pm_file or die $!; undef $/; my $code = <$code_fh>; close $code_fh; eval $code; # $code\u5185\u306b\u69cb\u6587\u30a8\u30e9\u30fc\u304c\u542b\u307e\u308c\u3066\u3044\u308b\u5834\u5408\u3001 # $@\u306b\u9069\u5207\u306a\u30a8\u2026","author_url":"https://blog.hatena.ne.jp/tyamaguc07/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftyamaguc07.hatenadiary.org%2Fentry%2F20110328%2Fp1\" title=\" \u7d9a\u30fb\u306f\u3058\u3081\u3066\u306ePerl 10\u7ae0 - \u3061\u3083\u307e\u3050\u306e\u5099\u5fd8\u9332\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://tyamaguc07.hatenadiary.org/"}