{"id":147,"date":"2007-05-09T02:47:03","date_gmt":"2007-05-08T17:47:03","guid":{"rendered":"https:\/\/deskplate.net\/blog\/2007\/05\/09\/perl%e3%80%80%e3%82%a4%e3%83%b3%e3%82%b9%e3%83%88%e3%83%bc%e3%83%ab%e3%81%95%e3%82%8c%e3%81%a6%e3%81%84%e3%82%8b%e3%83%a2%e3%82%b8%e3%83%a5%e3%83%bc%e3%83%ab%e3%81%ae%e4%b8%80%e8%a6%a7\/"},"modified":"2007-05-09T02:47:03","modified_gmt":"2007-05-08T17:47:03","slug":"perl%e3%80%80%e3%82%a4%e3%83%b3%e3%82%b9%e3%83%88%e3%83%bc%e3%83%ab%e3%81%95%e3%82%8c%e3%81%a6%e3%81%84%e3%82%8b%e3%83%a2%e3%82%b8%e3%83%a5%e3%83%bc%e3%83%ab%e3%81%ae%e4%b8%80%e8%a6%a7","status":"publish","type":"post","link":"https:\/\/deskplate.net\/blog\/archives\/147","title":{"rendered":"Perl\u3000\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3055\u308c\u3066\u3044\u308b\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e00\u89a7"},"content":{"rendered":"

\u30ed\u30ea\u30dd\u30c3\u30d7\u3067\u306f\u3053\u3046\u306a\u3063\u305f
\n\u3053\u3053\u3092\u30af\u30ea\u30c3\u30af<\/a>
\n#!\/usr\/bin\/perl
\nuse strict;
\nuse CGI;
\nmy $q = CGI->new;
\nmy @modules = ();
\nforeach my $base_dir ( @INC ) {
\n\u3000my @dir = ( undef );
\n\u3000while ( @dir ) {
\n\u3000\u3000my $dir = pop @dir;
\n\u3000\u3000my $open = $base_dir;
\n\u3000\u3000$dir and $open .= “\/$dir”;
\n\u3000\u3000opendir ( DIR, $open );
\n\u3000\u3000my @object = grep { !\/^\\.\/ } readdir ( DIR );
\n\u3000\u3000closedir ( DIR );
\n\u3000\u3000push @dir, map { “$dir\/$_” } grep { -d “$base_dir\/$dir\/$_” } @object;
\n\u3000\u3000push @modules, map { “$dir\/$_” } grep { \/\\.pm$\/ } @object;
\n\u3000}
\n}
\nmap { s\/^\\\/\/\/ } @modules;
\nmy %modules = map { $_=>1 } @modules;
\n@modules = sort keys %modules;
\nmy $modules = {};
\nforeach ( @modules ) {
\n\u3000my @temp = split \/\\\/\/;
\n\u3000my $eval = ‘$modules->’.join(‘->’,map{ ‘{“‘.$_.'”}’ }@temp).’= 1;’;
\n\u3000eval $eval;
\n}
\nprint $q->header;
\nprint $q->start_html(-title=>’modules in this Perl.’);
\nprint hashref2list($modules);
\nprint $q->end_html;
\nsub hashref2list {
\n\u3000my $hashref = shift;
\n\u3000my $parent = shift;
\n\u3000my @keys = keys %{$hashref};
\n\u3000my @file = ();
\n\u3000my @dir = ();
\n\u3000foreach ( @keys ) {
\n\u3000\u3000if ( ref $hashref->{$_} ) {
\n\u3000\u3000\u3000push @dir, $_;
\n\u3000\u3000} else {
\n\u3000\u3000\u3000push @file, $_;
\n\u3000\u3000}
\n\u3000}
\n\u3000@dir = sort @dir;
\n\u3000map { s\/\\.pm$\/\/ } @file;
\n\u3000@file = sort @file;
\n\u3000return $q->ul(
\n\u3000\u3000$q->li([map { “$parent$_” } @file]),
\n\u3000\u3000$q->li([map { $_.’::’.hashref2list($hashref->{$_}, $parent.$_.’::’) } @dir])
\n\u3000);
\n}
\nexit(0);<\/p>\n","protected":false},"excerpt":{"rendered":"

\u30ed\u30ea\u30dd\u30c3\u30d7\u3067\u306f\u3053\u3046\u306a\u3063\u305f \u3053\u3053\u3092\u30af\u30ea\u30c3\u30af<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2,17],"tags":[],"class_list":["post-147","post","type-post","status-publish","format-standard","hentry","category-perl","category-17"],"_links":{"self":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/147","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/comments?post=147"}],"version-history":[{"count":0,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/posts\/147\/revisions"}],"wp:attachment":[{"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/media?parent=147"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/categories?post=147"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/deskplate.net\/blog\/wp-json\/wp\/v2\/tags?post=147"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}