簡易HTTPサーバ - odz bufferref:naoyaグループ - naoyaの日記 - 指定したパスをルートにして公開する httpd とりあえず実体参照変換はいれたほうがいいんじゃないかとか。 --- httpd.pl.orig 2007-05-14 00:46:06.000000000 +0900 +++ httpd.pl 2007-05-14 00:53:34.000000000 +0900 @@ -24,6 +24,7 @@ use Socket; use IO::Handle; use HTTP::Status; +use CGI; use POE qw( Sugar::Args @@ -215,8 +216,8 @@ my $out; for (dir($dir)->children) { $out .= sprintf "<li><a href=\"/%s\">%s%s</a></li>", - $_->re
