Un script CGI poate fi la fel de simplu sau de complex cum ai nevoie. Ar putea fi în Perl, Java, Python sau oricare altul limbaj de programare. La baza sa, o aplicație CGI ia pur și simplu o solicitare prin HTTP (de obicei un browser web) și returnează HTML. Să ne uităm la o simplă Perl Salut Lume Script CGI și descompun-o în cele mai simple forme.

 #! / Usr / bin / perl
imprimați „Tip de conținut: text / html \ n \ n”;
imprima <




Un CGI Perl simplu

Salut Lume


HTML
Ieșire; 

Dacă rulați programul pe linia de comandă, veți vedea că face exact ceea ce vă așteptați. În primul rând, imprimă Tipul de conținut linie, apoi imprimă HTML-ul brut. Pentru a-l vedea în acțiune într-un browser web, va trebui să copiați sau să încărcați scriptul pe serverul dvs. Web și asigurați-vă că permisiunile sunt setate corect (chmod 755 pe sistemele * nix). După ce ați setat-o ​​corect, ar trebui să puteți naviga la ea și să vedeți pagina afișată în direct pe serverul dvs.

Linia cheie este prima declarație de tipărire:

 imprimați „Tip de conținut: text / html \ n \ n”; 

Acest lucru îi spune browserului că documentul urmează după cei doi liniile noi va fi HTML. Tu trebuie sa trimiteți un antet, astfel încât browserul să știe ce tip de document urmează și trebuie să includeți o linie goală între antet și documentul real.

Odată ce antetul este trimis, este doar o problemă de a trimite documentul HTML în sine. În exemplul de mai sus, utilizăm un document aici pentru a simplifica imprimarea unei bucăți mari de text simplu. Desigur, acesta nu este cu adevărat diferit de faptul că un document HTML simplu stă pe serverul dvs. Adevarata putere de a folosi un limbaj de programare precum Perl pentru a-ti crea HTML-ul vine atunci cand adaugi ceva programare Perl fantezist.

În următorul exemplu, să luăm o parte din acest aspect scenariu ora și data și adăugați-o pe pagina web.

 #! / Usr / bin / perl
@months = qw (Jan Feb Mar Apr Mai Iun Jul Iul Sep Sep Oct Dec);
@weekDays = qw (Duminică, Luni, Miercuri, Joi Vineri Sâmbătă);
(secundă $, minut $, oră $, zi zi $ OfMontă, lună $, $ anOfset, $ ziOfimă, $ ziOfYear, $ zi de luminăSavings) = localtime ();
$ an = 1900 + $ anAffset;
$ theTime = "$ weekDays [$ dayOfWeek] $ months [$ month] $ dayOfMonth, $ year";
imprimați „Tip de conținut: text / html \ n \ n”;
imprima <




Un CGI Perl simplu

$ thetime


HTML
Ieșire; 

Acest nou script CGI va insera data curentă în pagină de fiecare dată când este apelat scriptul. Cu alte cuvinte, devine a dinamic document care se modifică pe măsură ce data se schimbă, mai degrabă decât a static document.