#!/usr/bin/perl #增加人數並show數字 ####################### # VICTOR工作室 # ####################### ####宣告區 $numberfile="/var/www/vhosts/kinmen.info/counter/number.txt"; ####運作區 &opennumber; &savenumber; &shownumber; exit; ####存取區 sub opennumber { ####讀取數字 open(OPENGNUMBER,"<$numberfile"); @openfile=+1; close(OPENGNUMBER); } sub savenumber { ####儲存數字 open(OPENSAVE,">$numberfile"); flock(2,OPENSAVE); #鎖檔,避免別人寫入 print OPENSAVE @openfile; flock(8,OPENSAVE); #打開鎖 close(OPENSAVE); } ####秀文區 sub shownumber { ####展現文字 print "Content-type: text/html\n\n"; print "@openfile"; print " 無標題文件 @openfile "; }