Látogatók számlálója
Tekintsünk egy egyszerű szöveges számlálót, amely számolja a látogatások teljes számát és megjeleníti az eredményt a képernyőn.
Határozza meg a fájl elérési útját, amelyben tárolni mérőállás: # / usr / local / bin / perl #textcounter $ file = "counter1.txt" ;!
Nyissa meg a fájlt olvasni, és inicializálja a számlálót növeli annak értékét eggyel: open (STAT „$ file”); $ count =; szoros (STAT); $ count ++;
Nyissa meg a számlálófájlt az íráshoz és írjon új értéket: nyitott (STAT, "> $ fájl"); nyomtassa ki a STAT $ számlálót; szoros (STAT);
Végül megjelenítjük a mérőórát a képernyőn: print "Content-type: text / htmlnn"; print $ count;
Ha menti a kódot counter1.cgi fájlt, és nyissa meg a böngészőben, a képernyőn látni fogjuk, az 1. Ha az oldal újratöltődik számláló értéke növekszik 1 megjelenítése számláló eredményeket tud valaki mondja meg, hogy a fantázia-vagy csak egy szám, vagy helyezze A táblázatban háttérképet használva háttérként stb. Helyezze be a számlálót html-oldalon lehet a SSI.Dlya ez egy olyan helyen, ahol állítólag használni a mérő, illessze be a következő kódot:
1. példa felsorolása.
#! / usr / local / bin / perl #textcounter $ file = "counter1.txt"; nyitott (STAT, "$ file"); $ count =; szoros (STAT); $ count ++; nyissa meg (STAT, "> $ fájl"); nyomtassa ki a STAT $ számlálót; szoros (STAT); print "Content-type: text / htmlnn"; print $ count;
Bonyolítja az előző példát, például új bejegyzést a log fájlt a statisztikák gyűjtésére és gondoskodik arról, hogy a mérő megjeleníti az eredményeket formájában 6 számjegyek a töltelék vezető nullák, például a következők: 000143 Előző rész a kód változatlan marad, csak adj egy változót a száma az eredmény számjegyei. # / Usr / local / bin / perl #textcounter $ file = "szamlalo2.txt" !; $ dig_num = 6; nyitott (STAT, "$ file"); $ count =; szoros (STAT); $ count ++; nyissa meg (STAT, "> $ fájl"); nyomtassa ki a STAT $ számlálót; szoros (STAT);
Ezután adja hozzá a következőket: nyitott (DATA, ">> counter.log"); $ string = csatlakozás ('', $ ENV, $ ENV, skalar localtime); print DATA "$ stringn"; szoros (DATA);
Ezután megjelenítjük az aktuális időt egy olvasható formában, amelyet a mai látogatások számának meghatározására használunk. ($ Sec, $ perc, $ óra $ nap, $ havonta $ éves, $ Day2) = localtime (idő); if ($ óra> counter.log "); $ string = csatlakozni ( '', $ ENV, $ ENV, skalár localtime); print DATA" $ stringn „közeli (DATA);
Számos példa van: Valószínűleg minden webes programozó a maga módján írja a számlálókat. De úgy gondolom, hogy a fenti példák segítenek abban, hogy megértsd az írószámlálók alapelvét és hozd létre a sajátodat, ami nem olyan, mint :)))