{"title":"\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u5168\u3066\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u6539\u884c\u30b3\u30fc\u30c9\u3092CRLF\u304b\u3089LF\u3078","categories":["Perl"],"author_name":"tizz","description":"windows\u3067\u4f5c\u3063\u305f\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306f\u3001\u6539\u884c\u30b3\u30fc\u30c9\u3092\u76f4\u3055\u306a\u3044\u3068\u3044\u3051\u306a\u3044\u306e\u3060\u304c\u3002 #!/usr/local/bin/perl use strict; use Encode; use warnings; use utf8; my $dir = shift; #\u5bfe\u8c61\u30c7\u30a3\u30ec\u30af\u30c8\u30ea $dir =~s[/?\\Z][/];opendir DIR, $dir or die; my @textfiles = grep{/\\.txt/}readdir DIR;for (@textfiles){ open my $IN, ' my $data = do { local $/; }; open my $OUT, '\u2026","version":"1.0","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/tizz/","width":"100%","height":"190","image_url":null,"provider_name":"Hatena Blog","blog_url":"https://tizz.hatenadiary.org/","type":"rich","url":"https://tizz.hatenadiary.org/entry/20090825/1251232703","published":"2009-08-25 05:38:23","blog_title":"tizz\u306e\u65e5\u8a18","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftizz.hatenadiary.org%2Fentry%2F20090825%2F1251232703\" title=\"\u30d5\u30a9\u30eb\u30c0\u5185\u306e\u5168\u3066\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u6539\u884c\u30b3\u30fc\u30c9\u3092CRLF\u304b\u3089LF\u3078 - tizz\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}