{"author_url":"https://blog.hatena.ne.jp/BigFatCat/","author_name":"BigFatCat","blog_title":"BigFatCat\u306e\u30d6\u30ed\u30b0","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fbigfatcat.hateblo.jp%2Fentry%2F20071208%2F1197128745\" title=\" \u7d9a\u30fb\u521d\u3081\u3066\u306ePerl \u7b2c8\u7ae0 \u300c\u30d5\u30a1\u30a4\u30eb\u30cf\u30f3\u30c9\u30eb\u3078\u306e\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9\u300d - 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>","published":"2007-12-08 00:45:45","blog_url":"https://bigfatcat.hateblo.jp/","url":"https://bigfatcat.hateblo.jp/entry/20071208/1197128745","height":"190","width":"100%","description":"\u7df4\u7fd2\u554f\u984c\u306e\u56de\u7b54\u3092\u30e1\u30e2\u3002 ex08-1 #!/usr/bin/perl use strict; use warnings; use IO::Tee; my $choice; while (1) { print \"1: File, 2: Scalar, 3: Both, q: quit\\n\"; print \"Which of above do you want your output to go?: \"; chomp($choice = <STDIN>); last if $choice =~ /^\\s*[123]\\s*$/; exit 0 if $choice =~ /^\\s*q\\s*$/i; \u2026","provider_url":"https://hatena.blog","provider_name":"Hatena Blog","title":" \u7d9a\u30fb\u521d\u3081\u3066\u306ePerl \u7b2c8\u7ae0 \u300c\u30d5\u30a1\u30a4\u30eb\u30cf\u30f3\u30c9\u30eb\u3078\u306e\u30ea\u30d5\u30a1\u30ec\u30f3\u30b9\u300d","image_url":null,"version":"1.0","categories":["perl"],"type":"rich"}