Hallo wereld CGI-script in Perl

Een CGI-script kan zo eenvoudig of complex zijn als u wilt. Het kan in Perl zijn, Java, Python of wat dan ook programmeertaal. In de kern accepteert een CGI-toepassing eenvoudig een aanvraag via HTTP (meestal een webbrowser) en retourneert HTML. Laten we eens kijken naar een eenvoudige Perl Hallo Wereld CGI-script en splitsen het op in zijn eenvoudigste vormen.

'Hello World' CGI Perl-script

 #! / usr / bin / perl
print "Inhoudstype: tekst / html \ n \ n";
afdrukken <

Een eenvoudige Perl CGI


Een eenvoudige Perl CGI


Hallo Wereld



HTML
Uitgang;

Als u het programma op de opdrachtregel uitvoert, ziet u dat het precies doet wat u zou verwachten. Eerst drukt het de Inhoudstype regel, dan wordt de onbewerkte HTML afgedrukt. Om het in actie te zien in een webbrowser, moet u het script naar uw webserver kopiëren of uploaden en ervoor zorgen dat de machtigingen correct zijn ingesteld (chmod 755 op * nix-systemen). Nadat u het correct hebt ingesteld, moet u ernaar kunnen bladeren en de pagina live op uw server kunnen zien.

instagram viewer

De hoofdregel is de eerste afdrukopdracht:

 print "Inhoudstype: tekst / html \ n \ n"; 

Dit vertelt de browser dat het document na de twee komt nieuwe lijnen wordt HTML. U moet stuur een koptekst zodat de browser weet welk type document er nu komt en u een lege regel tussen de koptekst en het eigenlijke document moet opnemen.

Zodra de kop is verzonden, is het gewoon een kwestie van het HTML-document zelf verzenden. In het bovenstaande voorbeeld gebruiken we een hier-doc om het afdrukken van een groot stuk platte tekst te vereenvoudigen. Dit is natuurlijk niet anders dan een gewoon HTML-document op uw server te hebben staan. De echte kracht van het gebruik van een programmeertaal zoals Perl om je HTML te maken, komt wanneer je wat mooie Perl-programmering toevoegt.

Toevoegen aan het basisscript

Laten we hier in het volgende voorbeeld aan deelnemen tijd en datum script en voeg het toe aan uw webpagina.

 #! / usr / bin / perl
@months = qw (jan feb mrt apr mei jun jul aug sep okt nov dec dec);
@weekDays = qw (zon ma di wo do vr za zo);
($ seconde, $ minuut, $ uur, $ dayOfMonth, $ month, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = localtime ();
$ jaar = 1900 + $ jaar Offset;
$ theTime = "$ weekDays [$ dayOfWeek] $ maanden [$ month] $ dayOfMonth, $ jaar";
print "Inhoudstype: tekst / html \ n \ n";
afdrukken <

Een eenvoudige Perl CGI


Een eenvoudige Perl CGI


$ theTime



HTML
Uitgang;

Dit nieuwe CGI-script voegt de huidige datum in de pagina in telkens wanneer het script wordt aangeroepen. Met andere woorden, het wordt een dynamisch document dat verandert als de datum verandert, in plaats van een statisch document.

instagram story viewer