{"description":"# \u7d20\u6570\u3060\u3051\u51fa\u529b(grep\u3067\u30d6\u30ed\u30c3\u30af\u5f0f\u3092\u4f7f\u7528) my @prime = grep { my $num = $_; my $count = 0; map {$num % $_ ? 0 : $count++ } 1..$num; $count == 2 ; } 1..100; say \"@prime\";","author_url":"https://blog.hatena.ne.jp/kazuph1986/","author_name":"kazuph1986","categories":[],"width":"100%","blog_title":"\u50d5\u306eYak Shaving\u306f\u7d42\u308f\u3089\u306a\u3044","type":"rich","blog_url":"https://kazuph.hateblo.jp/","url":"https://kazuph.hateblo.jp/entry/20111202/1322836009","provider_name":"Hatena Blog","height":"190","provider_url":"https://hatena.blog","version":"1.0","title":"\u66f8\u304d\u6368\u3066Perl #1 grep block map","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkazuph.hateblo.jp%2Fentry%2F20111202%2F1322836009\" title=\"\u66f8\u304d\u6368\u3066Perl #1 grep block map - \u50d5\u306eYak Shaving\u306f\u7d42\u308f\u3089\u306a\u3044\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","published":"2011-12-02 23:26:49","image_url":null}