{"author_name":"iww","author_url":"https://blog.hatena.ne.jp/iww/","type":"rich","blog_url":"https://iww.hateblo.jp/","version":"1.0","provider_name":"Hatena Blog","height":"190","provider_url":"https://hatena.blog","image_url":null,"title":"\u30d5\u30a1\u30a4\u30eb\u4e00\u89a7","blog_title":"\u63ee\u767a\u6027\u306e\u30e1\u30e2\uff12","categories":["perl"],"description":"\u3042\u308b\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306e\u6700\u521d\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3060\u3051\u8868\u793a\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8 1:#!/usr/bin/perl 2:use strict; use warnings; 3: 4:if( opendir(my $dh, \"/tmp/hoge/\") ){ 5: print \"dh=$dh\\n\"; 6: if( my $f = readdir $dh ){ 7: print \"f=$f\\n\"; 8: } 9: closedir $dh; 10:} $ ./hoge.pl Value of readdir() operator can be \"0\"; test with defined() at ./hoge.pl l\u2026","url":"https://iww.hateblo.jp/entry/20131024/opendir","published":"2013-10-24 00:00:01","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fiww.hateblo.jp%2Fentry%2F20131024%2Fopendir\" title=\"\u30d5\u30a1\u30a4\u30eb\u4e00\u89a7 - \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%"}