{"provider_url":"https://hatena.blog","blog_title":"kassan_o\u2019s blog","categories":["Perl"],"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fk-blog.hateblo.jp%2Fentry%2F2014%2F10%2F01%2F002701\" title=\"\u3061\u3087\u3063\u3068\u6539\u5584\uff08output hoge\u3000\u306a\u3069\u306e\u5ba3\u8a00\u306b\u30d2\u30c3\u30c8\u3057\u306a\u3044\u5de5\u592b\uff08\u3068\u3082\u8a00\u3048\u306a\u3044\u7a0b\u5ea6\u306e\u5de5\u592b\uff09 - kassan_o\u2019s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_name":"Hatena Blog","title":"\u3061\u3087\u3063\u3068\u6539\u5584\uff08output hoge\u3000\u306a\u3069\u306e\u5ba3\u8a00\u306b\u30d2\u30c3\u30c8\u3057\u306a\u3044\u5de5\u592b\uff08\u3068\u3082\u8a00\u3048\u306a\u3044\u7a0b\u5ea6\u306e\u5de5\u592b\uff09","image_url":null,"version":"1.0","width":"100%","blog_url":"https://k-blog.hateblo.jp/","url":"https://k-blog.hateblo.jp/entry/2014/10/01/002701","author_name":"kassan_o","type":"rich","published":"2014-10-01 00:27:01","author_url":"https://blog.hatena.ne.jp/kassan_o/","height":"190","description":"\u4ee5\u524d\u63b2\u8f09\u3057\u305f\u5185\u5bb9\u3067\u306f output , input , reg \u5ba3\u8a00\u306a\u3069\u3082 \u30a4\u30f3\u30b9\u30bf\u30f3\u30b9\u306e\u30d1\u30bf\u30fc\u30f3\u3068\u3057\u3066\u30de\u30c3\u30c1\u3057\u3066\u3057\u307e\u3063\u3066\u3044\u305f\u306e\u3067\u3001 \u300c(\u300d\u3092\u52a0\u3048\u3066\u307f\u305f\u3002 \uff03( \u306e\u524d\u306b\u6539\u884c\u3059\u308b\u3088\u3046\u306a\uff32\uff34\uff2c\u66f8\u304b\u308c\u305f\u3089\u30a2\u30a6\u30c8\u3060\u304c\u3002 \u203b\u30e2\u30b8\u30e5\u30fc\u30eb\u5074\u306e\u30d1\u30bf\u30fc\u30f3\u306b\u306f\u300cmodule\u300d\u304c\u5165\u3063\u3066\u3044\u308b\u306e\u3067\u5fc3\u914d\u7121\u7528 testj11.pl -------------------- #!usr/bin/env perl #input, output, reg\u306a\u3069\u306b\u304b\u304b\u3089\u306a\u3044\u3088\u3046\u306b\u300c(\u300d\u3092\u5165\u308c\u305f $i= 0; while($line = <>){ $i=$i+1; # if ( $line =~ m/^\\s*module\\s*([a-\u2026"}