CGI scenarijus gali būti toks paprastas ar sudėtingas, kokio jums reikia. Tai gali būti Perle, „Java“, Python ar bet kuris kitas programavimo kalba. Esmė CGI programa paprasčiausiai priima užklausą per HTTP (paprastai interneto naršyklę) ir grąžina HTML. Pažvelkime į paprastą Perlą Labas pasauli CGI scenarijų ir suskirstykite jį į paprasčiausias formas.

 #! / usr / bin / perl
spausdinti „Turinio tipas: tekstas / html \ n \ n“;
spausdinti <




Paprastas „Perl“ CGI

Labas pasauli


HTML
išėjimas; 

Jei vykdysite programą komandinėje eilutėje, pamatysite, kad ji daro tiksliai tai, ko tikėjotės. Pirmiausia išspausdinamas Turinio tipas eilutėje, tada jis atspausdina neapdorotą HTML. Norėdami pamatyti, kaip jis veikia interneto naršyklėje, turėsite nukopijuoti arba įkelti scenarijų į savo interneto serverį ir įsitikinti, kad leidimai nustatyti tinkamai (chmod 755 * nix sistemose). Kai teisingai nustatysite, turėtumėte galėti naršyti po jį ir pamatyti tiesiogiai rodomą puslapį serveryje.

Pagrindinė eilutė yra pirmasis spausdinimo teiginys:

 spausdinti „Turinio tipas: tekstas / html \ n \ n“; 

Tai nurodo naršyklei, kad dokumentas pateikiamas po jų dviejų naujos eilutės bus HTML. Tu privalo atsiųskite antraštę, kad naršyklė žinotų, kokio tipo dokumentas bus pateiktas toliau, ir tarp antraštės ir tikrojo dokumento turite būti tuščia eilutė.

Kai antraštė bus išsiųsta, tereikia nusiųsti patį HTML dokumentą. Aukščiau pateiktame pavyzdyje mes naudojame „here-doc“, kad būtų paprasčiau spausdinti didelę paprasto teksto dalį. Žinoma, tai tikrai nesiskiria nuo to, kad jūsų serveryje yra paprastas HTML dokumentas. Tikroji programavimo kalbos, tokios kaip „Perl“, naudojimo HTML kūrimui galia atsiranda tada, kai pridedate kokį nors išgalvotą „Perl“ programavimą.

Kitame pavyzdyje paimkime tai laiko ir datos scenarijus ir pridėkite jį prie savo interneto puslapio.

 #! / usr / bin / perl
@months = qw (Jan Vas Vas Kov Bal Geguž Bir Bir Lie Lie Rup Rugs Spa Spa Lap Gru gruodis);
@weekDays = qw (sekmadienis pirmadienis trečiadienis penktadienis sekmadienis sekmadienis);
($ sekundė, $ minutė, $ valanda, $ dayOfMonth, $ mėnuo, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = vietinis laikas ();
$ metai = 1900 + $ yearOffset;
$ theTime = "$ weekDays [$ dayOfWeek] $ mėnesiai [$ mėnuo] $ dayOfMonth, $ metai“;
spausdinti „Turinio tipas: tekstas / html \ n \ n“;
spausdinti <




Paprastas „Perl“ CGI

$ theTime


HTML
išėjimas; 

Šis naujas CGI scenarijus įterps dabartinę datą į puslapį kiekvieną kartą, kai bus vadinamas scenarijus. Kitaip tariant, jis tampa a dinamiškas dokumentas, kuris keičiasi keičiantis datai, o ne statinis dokumentas.