('A`)前進しないよ これの27行目 closedir(DIR); でエラーになるんだけどなんで？ #!/perl/bin/perl use strict; use warnings; print "<html>\n"; &traverse_html("."); print "</html>\n";
sub traverse_html { my $dirname = shift; my $delim = '/'; if ($dirname =~ /[\/\\]$/) { $delim = ''; } print "<ul>\n"; opendir(DIR, $dirname) or die "$dirname: $!"; foreach my $entry (readdir(DIR)) { next if ($entry eq '.'); next if ($entry eq '..'); my $filename = "$dirname$delim$entry"; if (-d $filename) { print "<li>$entry\n"; &traverse_html($filename); } else { &do_html($filename, $entry); } } closedir(DIR); print "</ul>\n"; }
