Ένα σενάριο CGI μπορεί να είναι τόσο απλό ή περίπλοκο όσο χρειάζεστε. Θα μπορούσε να είναι στην Perl, Ιάβα, Python ή οποιαδήποτε άλλη γλώσσα προγραμματισμού. Στον πυρήνα της, μια εφαρμογή CGI απλά λαμβάνει ένα αίτημα μέσω HTTP (τυπικά ενός προγράμματος περιήγησης ιστού) και επιστρέφει κώδικα HTML. Ας δούμε ένα απλό Perl Γειά σου Κόσμε CGI γραφή και να σπάσει κάτω σε αυτό είναι απλούστερη μορφές.

 #! / usr / bin / perl
εκτύπωση "Τύπος περιεχομένου: κείμενο / html \ n \ n";
εκτύπωση <




Ένα απλό CGI Perl

Γειά σου Κόσμε


HTML
έξοδος; 

Εάν εκτελέσετε το πρόγραμμα στη γραμμή εντολών, θα δείτε ότι κάνει ακριβώς αυτό που θα περίμενε κανείς. Πρώτα, εκτυπώνει το Τύπος περιεχομένου γραμμή, τότε εκτυπώνει το ακατέργαστο HTML. Για να το δείτε σε δράση σε ένα πρόγραμμα περιήγησης ιστού, θα πρέπει να αντιγράψετε ή να μεταφορτώσετε το σενάριο στον κεντρικό υπολογιστή σας και να βεβαιωθείτε ότι τα δικαιώματα είναι σωστά ρυθμισμένα (chmod 755 στα συστήματα * nix). Μόλις το ρυθμίσετε σωστά, θα πρέπει να μπορείτε να περιηγηθείτε σε αυτό και να δείτε τη σελίδα που εμφανίζεται ζωντανά στον διακομιστή σας.

Η γραμμή κλειδιού είναι η πρώτη δήλωση εκτύπωσης:

 εκτύπωση "Τύπος περιεχομένου: κείμενο / html \ n \ n"; 

Αυτό λέει στο πρόγραμμα περιήγησης ότι το έγγραφο έρχεται μετά τα δύο νέες γραμμές πρόκειται να είναι HTML. Εσείς πρέπει να στείλετε μια κεφαλίδα έτσι ώστε το πρόγραμμα περιήγησης να γνωρίζει τον επόμενο τύπο εγγράφου και πρέπει να συμπεριλάβετε μια κενή γραμμή μεταξύ της κεφαλίδας και του πραγματικού εγγράφου.

Μόλις αποστέλλεται η κεφαλίδα, πρόκειται απλώς για αποστολή του ίδιου του εγγράφου HTML. Στο παραπάνω παράδειγμα, χρησιμοποιούμε ένα here-doc για απλοποίηση της εκτύπωσης ενός μεγάλου κομματιού απλού κειμένου. Φυσικά, αυτό δεν είναι πραγματικά διαφορετικό από το να έχετε ένα απλό έγγραφο HTML που κάθεται στο διακομιστή σας. Η πραγματική δύναμη της χρήσης μιας γλώσσας προγραμματισμού όπως το Perl για να δημιουργήσετε το HTML σας έρχεται όταν προσθέτετε κάποιο κομψό προγραμματισμό Perl.

Στο επόμενο παράδειγμα, ας πάρουμε μέρος αυτού ώρα και ημερομηνία και προσθέστε την στην ιστοσελίδα σας.

 #! / usr / bin / perl
@months = qw (Ιαν Φεβ Μαρ Απρ Μαϊ Ιουν Ιουλ Αυγ Σεπ Οκτ Νοε Δεκ);
@weekDays = qw (Κυρ Δευ Τρι Τετ Πεμ Παρ Σαβ Κυρ);
($ δευτερόλεπτα, $ λεπτό, $ ώρα, $ dayOfMonth, $ month, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = localtime ();
$ έτος = 1900 + $ yearOffset;
$ theTime = "$ weekDays [$ dayOfWeek] $ μηνών [$ month] $ dayOfMonth, $ year";
εκτύπωση "Τύπος περιεχομένου: κείμενο / html \ n \ n";
εκτύπωση <




Ένα απλό CGI Perl

$ theTime


HTML
έξοδος; 

Αυτή η νέα δέσμη ενεργειών CGI θα εισαγάγει την τρέχουσα ημερομηνία στη σελίδα κάθε φορά που καλείται το σενάριο. Με άλλα λόγια, γίνεται α δυναμικός έγγραφο που αλλάζει ως αλλαγή ημερομηνίας, αντί για στατικός έγγραφο.