【Perl 】初心者コーナーPart5
700 ：名無しさん＠お腹いっぱい。：
厨房質問ですみません。
ディレクトリ内のファイル一覧を表示するのに
#!usr/local/bin/perl
print "Content-type: text/html\n\n";
print <<"HEAD";
<html><head><title>ichiran</title>
</head><body>
HEAD
opendir(DIR,"./");
@list=readdir(DIR);
close(DIR);
@list=sort(@list);
foreach(@list){
print "$_<br>\n";
}
print "</body></html>";
exit;
という風に書いてローカルで動かしたところ、ちゃんと動いたので
サーバにアップロードして動かしてみたところエラーになって
しまいます。原因はなんなんでしょう？くだらない質問かもしれ
ませんがご教授願います。
ローカル：Win、ANHTTPd、Active Perl
アップ先：hypermart.net
ディレクトリ内のファイル一覧を表示するのに
#!usr/local/bin/perl
print "Content-type: text/html\n\n";
print <<"HEAD";
<html><head><title>ichiran</title>
</head><body>
HEAD
opendir(DIR,"./");
@list=readdir(DIR);
close(DIR);
@list=sort(@list);
foreach(@list){
print "$_<br>\n";
}
print "</body></html>";
exit;
という風に書いてローカルで動かしたところ、ちゃんと動いたので
サーバにアップロードして動かしてみたところエラーになって
しまいます。原因はなんなんでしょう？くだらない質問かもしれ
ませんがご教授願います。
ローカル：Win、ANHTTPd、Active Perl
アップ先：hypermart.net
|
|
|