Luați în considerare un numărător simplu de text care numără numărul total de vizite și afișează rezultatul pe ecran.
Definiți calea spre fișierul în care va fi stocat contorul: #! / Usr / local / bin / perl #textcounter $ file = "counter1.txt";
Deschideți fișierul pentru citire, inițializați contorul și măriți valoarea acestuia cu unul: deschideți (STAT, "$ file"); $ count =; închide (STAT); $ count ++;
Deschideți fișierul counter pentru scrierea și scrierea unei noi valori: deschideți (STAT, "> $ file"); tipăriți STAT $ count; închide (STAT);
În cele din urmă, afișăm citirea contorului pe ecran: tipăriți "Tip de conținut: text / htmlnn"; tipăriți $ count;
Dacă salvați acest cod în fișierul counter1.cgi și deschideți-l într-un browser, ecranul vom vedea 1. Dacă reîncărcați valoarea paginii contor crește cu 1. Rezultatele arata contra poate cineva spune-mi cum fantezia-sau pur și simplu ca un număr, sau să-l inserați În tabel, folosind un fundal ca fundal, etc. Introduceți contra pagina HTML poate fi folosind SSI.Dlya acest lucru într-un loc în care se presupune a utiliza contorul, inserați următorul cod:
Exemplu de listare 1.
#! / usr / local / bin / perl #textcounter $ file = "contra1.txt"; deschide (STAT, "$ file"); $ count =; închide (STAT); $ count ++; deschide (STAT, "> $ file"); tipăriți STAT $ count; închide (STAT); tipăriți "Tip de conținut: text / htmlnn"; tipăriți $ count;
Complica exemplul anterior, de exemplu, prin adăugarea unei intrări în fișierul jurnal pentru colectarea de statistici și se va asigura că contorul afișează rezultatele în formă de 6 cifre la umplerea zerouri de conducere, de exemplu, după cum urmează: 000143 partea anterioară a codului va rămâne neschimbat, trebuie doar să adăugați o variabilă pentru numărul de cifrele rezultatului. # / Usr / local / bin / perl #textcounter $ file = "counter2.txt" !; $ dig_num = 6; deschide (STAT, "$ file"); $ count =; închide (STAT); $ count ++; deschide (STAT, "> $ file"); tipăriți STAT $ count; închide (STAT);
Apoi adăugați următoarele: deschideți (DATA, ">> counter.log"); $ string = aderare ('', $ ENV, $ ENV, scalar localtime); print DATA "$ stringn"; închide (DATA);
Apoi vom afișa ora curentă într-un format mai ușor de citit. Acesta va fi folosit pentru a determina numărul de vizite pentru ziua de azi. ($ sec, $ min, $ oră, $ zi, $ lună, $ an, $ day2) = localtime (timp); dacă ($ ora> counter.log "); $ string = join ('', $ ENV, $ ENV, scalar localtime);
Există multe exemple. Probabil că fiecare programator web scrie contoare în felul său. Dar cred că exemplele de mai sus vă vor ajuta să înțelegeți principiul de bază al contorizării vizitelor și să creați propria dvs., care nu este ca :)))
Articole similare
Trimiteți-le prietenilor: