{"url":"https://nemoplus.hateblo.jp/entry/20090106/1231336522","type":"rich","blog_url":"https://nemoplus.hateblo.jp/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fnemoplus.hateblo.jp%2Fentry%2F20090106%2F1231336522\" title=\"\u8ab2\u984c\u3078\u306e\u6311\u6226 - \u306d\u3082\u3077\u3089\u3059\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","height":"190","version":"1.0","author_url":"https://blog.hatena.ne.jp/yamazaru_rengou/","width":"100%","published":"2009-01-06 22:55:22","description":"\u30b3\u30fc\u30c9 #!/usr/local/bin/perl -w use strict; use warnings; use Data::Dumper; use constant OUTPUT_FILE => \"union.csv\"; my $path1 = $ARGV[0]; my $path2 = $ARGV[1]; eval { die \"no argument.\" unless defined ( $path1 && $path2 ); die \"no file argv1.\" unless ( -f $path1 ); die \"no file argv2.\" unless ( -f $pa\u2026","author_name":"yamazaru_rengou","image_url":null,"title":"\u8ab2\u984c\u3078\u306e\u6311\u6226","provider_name":"Hatena Blog","categories":["perl"],"blog_title":"\u306d\u3082\u3077\u3089\u3059","provider_url":"https://hatena.blog"}