#!/usr/bin/perl # # 計數器Script（圖案篇） #$base = "../counter"; $base = "/home/user/cgc/html/cgi-bin/counter"; $title = "Counter3"; $data = "/home/user/cgc/html/cgi-bin/counter/counter3.dat"; $imgdata = "/images"; # 變數定義 $count = 0; if(open(FILE, "$data")){ # 若資料檔存在時，則取得計數器之值 $count = ; close(FILE); } # 輸出標頭 print "Content-type: text/html\n\n$title\n"; # 把計數器寫回檔案 open(FILE, "> $data") || &werror($data); print FILE ++$count; close(FILE); chmod 0755, $file; # 把計數器之值轉換成圖案輸出HTML foreach $n (split(//, $count)){ $image .= "

";#路徑要配合環境來改 } # 將計數器顯示到畫面上 print "$image"; # 顯示錯誤訊息並結束 sub werror { local($file) = @_; print "

Can't open error
\n"; print "無法開啟指定檔案
$file

\n"; exit(0); } #-----

Can't open error\n"; print "無法開啟指定檔案$file

Can't open error
\n"; print "無法開啟指定檔案
$file