{"author_url":"https://blog.hatena.ne.jp/iww/","url":"https://iww.hateblo.jp/entry/20100807/while","title":"perl\u3067\u8a2d\u5b9a\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u65b9","image_url":null,"blog_url":"https://iww.hateblo.jp/","type":"rich","published":"2010-08-07 00:00:00","provider_name":"Hatena Blog","description":"\u25cb\u25cb=\u25b3\u25b3\u307f\u305f\u3044\u306a\u8a2d\u5b9a\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u3080\u3002 # \u8a2d\u5b9a\u30d5\u30a1\u30a4\u30eb HOGE = hogehoge PIYO = piyopiyouse strict; use warnings; # \u9023\u60f3\u914d\u5217\u306b\u8a2d\u5b9a\u30d5\u30a1\u30a4\u30eb\u8aad\u307f\u51fa\u3057 my %s; if( open FH, 'hoge.conf' ){ while(<FH>){ $s{$1}=$2 if(/^(\\w+)\\s*=\\s*([-.\\w]+)/); } close(FH); } # \u8aad\u3081\u305f\u304b\u78ba\u8a8d while( my ($k,$v)=each %s ){ print \"$k=$v\\n\"; }","categories":["perl"],"author_name":"iww","version":"1.0","provider_url":"https://hatena.blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fiww.hateblo.jp%2Fentry%2F20100807%2Fwhile\" title=\"perl\u3067\u8a2d\u5b9a\u30d5\u30a1\u30a4\u30eb\u306e\u8aad\u307f\u65b9 - \u63ee\u767a\u6027\u306e\u30e1\u30e2\uff12\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","width":"100%","blog_title":"\u63ee\u767a\u6027\u306e\u30e1\u30e2\uff12","height":"190"}