{"blog_url":"https://rochefort.hatenablog.com/","height":"190","width":"100%","url":"https://rochefort.hatenablog.com/entry/20071025/p1","version":"1.0","description":"#! /usr/bin/perl use strict; my %mod_list; listup($_) for grep {$_ ne '.'} @INC; #print \"$_?n\" for sort keys %mod_list; print \"$_\\n\" for sort keys %mod_list; sub listup { my ($base, $path) = @_; # (my $mod = $path) =? s!/!::!g; (my $mod = $path) =~ s!/!::!g; opendir DIR, \"$base/$path\" or return; # m\u2026","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","published":"2007-10-25 00:00:00","author_name":"rochefort","categories":["Perl"],"type":"rich","image_url":null,"title":"perl\u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u8abf\u3079\u308b","author_url":"https://blog.hatena.ne.jp/rochefort/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Frochefort.hatenablog.com%2Fentry%2F20071025%2Fp1\" title=\"perl\u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u30e2\u30b8\u30e5\u30fc\u30eb\u3092\u8abf\u3079\u308b - rochefort&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_title":"rochefort's blog"}