WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:SSI式アクセスカウンタ

ロット [WriteDate : Sat Jun 23 15:33:33 2001]

perlでCGIです。
アクセスカウンタを設定したのですが自分のパソコンでテストしているのですが表示を期待したのでがうまく表示されません

ファイルcount.plです
#!/usr/local/bin/perl

$graphics = 'keijiban_2.cgi';
open(READ,"<count.dat")
$count = <READ>;
close(READ);

$count++;
open(WRITE,">count.dat");

print WRITE $count;
close(WRITE);
foreach $num(0 .. length("$count")-1){

    $img = substr($count,$num,1);
    print"<img src = $graphics$img.gif alt=$img>";
}
exit

表示する場所に
<!--#exec cmd="./count/count.pl"-->
を入れているのですがどこが違うのでしょうか?


安芸川晴海 [MAIL] [URL] [WriteDate : Sat Jun 23 20:45:08 2001]

文法的には、
1. READをopenしている行にセミコロンがありません。
2. exitのあとにセミコロンがありません。

とりあえずは、これをお試しください。


ロット [WriteDate : Sat Jun 23 22:10:04 2001]

ありがとうございました
でもまだだめみたいです。
プログラム自体が実行されないみたいです


バギンズ [WriteDate : Sun Jun 24 03:13:48 2001]

SSIが動くような設定になっているのでしょうか?
Webサーバーは何を使っていますか?

あと、
>$graphics = 'keijiban_2.cgi';
は、
$graphics = './image/';
とかを指定するのでは?

ロック処理も欲しいかも...


ロット [WriteDate : Sun Jun 24 11:39:23 2001]

ありがとうございました
ロック処理はあとで足します。
webサーバーはApacheです
まだ実行されません


しなのむし [WriteDate : Mon Jun 25 02:05:32 2001]

>print"<img src = $graphics$img.gif alt=$img>";
は、まず
print "<img src=\"$graphics$img.gif\" alt=\"$img\">";
こうですよね?

そもそも、count.plの中身を

#!/usr/local/bin/perl

print "hoge";
exit;

みたいにして動くかやってみましたか?


ロット [WriteDate : Mon Jun 25 21:31:32 2001]

やはりwebサーバーの設定に問題があるのでしょうか?
直接設置場所にコードを書きこむ事にします
しなのむしさんありがとうございました

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]
ChaichanPAPA's World