{"title":" [perl] \u306f\u3058\u3081\u3066\u306e Perl \u7b2c17\u7ae0","blog_url":"https://bigfatcat.hateblo.jp/","image_url":null,"version":"1.0","author_name":"BigFatCat","categories":[],"author_url":"https://blog.hatena.ne.jp/BigFatCat/","description":"\u7df4\u7fd2\u554f\u984c\u306e\u56de\u7b54\u3092\u30e1\u30e2\u3002 ex17-1 #!/usr/bin/perl use strict; my $filename = \"sample_text\"; open FILE, $filename or die \"cannot open '$filename': $!\"; my @lines = <FILE>; while (1) { print \"Enter a search pattern: \"; chomp(my $pattern = <STDIN>); last if $pattern =~ /^$/; eval { my @matching_lines = grep {/$patter\u2026","type":"rich","blog_title":"BigFatCat\u306e\u30d6\u30ed\u30b0","height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbigfatcat.hateblo.jp%2Fentry%2F20071128%2F1196260087\" title=\" [perl] \u306f\u3058\u3081\u3066\u306e Perl \u7b2c17\u7ae0 - BigFatCat\u306e\u30d6\u30ed\u30b0\" 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%","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","url":"https://bigfatcat.hateblo.jp/entry/20071128/1196260087","published":"2007-11-28 23:28:07"}