小山です。
From: naomijj@hi-ho.ne.jp
Subject: [plamo:21394] Apache2.0.48+perlCGIについて
Date: Fri, 28 Nov 2003 20:59:32 +0900
> ---------------------------------------------------------------
> 以下のようにすると、wazilla上でエラーとなります。
> #! /usr/bin/perl
>
> # カウントファイルの読み込み
> open(IN, "<./count.dat");
> eval{ flock(IN, 2); };
> $count = <IN>;
> close(IN);
>
> ++$count;
>
> # カウントファイルへの書き込み
> open(OUT, ">./count.dat");
> print OUT $count;
> close(OUT);
>
> # ヘッダ／html出力
> print "Content-type: text/html\n\n";
>
> print "<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">\n";
> print "<html>\n";
> print "<head><title>アクセスカウンタ</title></head>\n";
> print "<body>\n";
> print "<p>あなたは $count 番目の訪問者です。</p>\n";
> print "</body>\n";
> print "</html>\n";
> END
ENDが余計では？
--
小山満 mkoya@gvelo.ddnn.jp
Attachment:
pgp00001.pgp
Description: PGP signature