CGI skripts var būt tik vienkāršs vai sarežģīts, kā jums nepieciešams. Tas varētu būt Perlā, Java, Python vai jebkurš cits programmēšanas valoda. CGI lietojumprogrammas pamatā ir pieprasījums, izmantojot HTTP (parasti tīmekļa pārlūks), un tiek atgriezts HTML. Apskatīsim vienkāršu Perlu Sveika pasaule CGI skriptu un sadaliet to visvienkāršākajās formās.

 #! / usr / bin / perl
drukāt "Satura tips: teksts / html \ n \ n";
drukāt <




Vienkārša Perl CGI

Sveika pasaule


HTML
Izeja; 

Ja komandu palaidīsit programmu, redzēsit, ka tā darbojas tieši tā, kā jūs gaidījāt. Pirmkārt, tas izdrukā Satura tips rindā, tad tas izdrukā neapstrādātu HTML. Lai redzētu, kā tas darbojas tīmekļa pārlūkprogrammā, jums vajadzēs nokopēt vai augšupielādēt skriptu savā tīmekļa serverī un pārliecināties, ka atļaujas ir iestatītas pareizi (chmod 755 * nix sistēmās). Kad tas ir pareizi iestatīts, jums vajadzētu būt iespējai to pārlūkot un redzēt lapu, kas tiek rādīta tiešsaistē jūsu serverī.

Galvenā rindiņa ir pirmais izdrukas paziņojums:

 drukāt "Satura tips: teksts / html \ n \ n"; 

Tas pārlūkprogrammai norāda, ka dokuments nāk pēc diviem jaunrindas būs HTML. Jūs obligāti nosūtiet galveni, lai pārlūkprogramma zinātu, kāda veida dokumentu nāks nākamais, un starp galveni un faktisko dokumentu jāiekļauj tukša rinda.

Kad galvene ir nosūtīta, atliek tikai nosūtīt pašu HTML dokumentu. Iepriekš minētajā piemērā mēs izmantojam šeit pieejamo dokumentu, lai vienkāršotu liela vienkārša teksta daļas drukāšanu. Protams, tas tiešām neatšķiras no tā, ka jūsu serverī ir vienkāršs HTML dokuments. Programmēšanas valodas, piemēram, Perl, HTML izveidei reālais spēks nāk, kad pievienojat kādu iedomātu Perl programmēšanu.

Nākamajā piemērā piedalīsimies šajā laika un datuma skripts un pievienojiet to savai tīmekļa lapai.

 #! / usr / bin / perl
@months = qw (Jan Feb Mar Mar Apr Maijs Jun Jul Aug Aug Sep Oct Nov Dec);
@weekDays = qw (svētdien pirmdien, otrdien, piektdienā, svētdien);
($ otrais, $ minūte, $ stunda, $ dayOfMonth, $ mēnesis, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = localtime ();
$ gads = 1900 + $ yearOffset;
$ theTime = "$ weekDays [$ dayOfWeek] $ mēneši [$ mēnesis] $ dayOfMonth, $ gads";
drukāt "Satura tips: teksts / html \ n \ n";
drukāt <




Vienkārša Perl CGI

Laiks


HTML
Izeja; 

Šis jaunais CGI skripts ievietos pašreizējo datumu lapā katru reizi, kad tiek izsaukts skripts. Citiem vārdiem sakot, tas kļūst par a dinamisks dokuments, kas mainās, mainoties datumam, nevis a statisks dokumentu.