Здравейте Световен CGI скрипт в Perl

CGI скриптът може да бъде толкова прост или сложен, колкото ви е необходим. Може да е в Перл, Ява, Python или който и да е програмен език. В основата си, CGI приложение просто приема заявка чрез HTTP (обикновено уеб браузър) и връща HTML. Нека да разгледаме обикновен Perl Здравей свят CGI скрипт и го разбийте на най-прости форми.

„Здравей свят“ CGI Perl Script

 #! / ЮЕсАр / хамбар / Perl
печат "Тип на съдържанието: текст / html \ n \ n";
печат <

Прост Perl CGI


Прост Perl CGI


Здравей свят



HTML
излезете;

Ако стартирате програмата в командния ред, ще видите, че тя прави точно това, което бихте очаквали. Първо, тя отпечатва Тип съдържание линия, след това отпечатва суровия HTML. За да го видите в действие в уеб браузър, ще трябва да копирате или качите скрипта на вашия уеб сървър и да се уверите, че разрешенията са зададени правилно (chmod 755 за * nix системи). След като го зададете правилно, трябва да можете да го прегледате и да видите страницата, показана на живо на вашия сървър.

Ключовият ред е първото изявление за печат:

 печат "Тип на съдържанието: текст / html \ n \ n"; 

Това казва на браузъра, че документът, идващ след двамата редове ще бъде HTML. Ти трябва да изпратете заглавка, така че браузърът да знае какъв тип документ е следващият и трябва да включите празен ред между заглавката и действителния документ.

След като заглавката бъде изпратена, става въпрос само за изпращане на самия HTML документ. В горния пример използваме тук-doc, за да опростим отпечатването на голям парче обикновен текст. Разбира се, това наистина не се различава от това да разполагате с обикновен HTML документ на вашия сървър. Истинската сила на използването на език за програмиране като Perl за създаване на вашия HTML идва, когато добавите фантазия на Perl програмиране.

Добавяне към основния скрипт

В следващия пример, нека вземем част от това време и дата скрипт и го добавете към вашата уеб страница.

 #! / ЮЕсАр / хамбар / Perl
@months = qw (януари февруари март април май юни юли август септември октомври ноември декември);
@weekDays = qw (Sun Mon Tue Wed Thu Fri Sat Sun);
($ секунда, $ минута, $ час, $ dayOfMonth, $ месец, $ yearOffset, $ dayOfWeek, $ dayOfYear, $ daylightSavings) = localtime ();
$ година = 1900 + $ година компенсиране;
$ the Time = "$ weekDays [$ day of Week] $ months [$ month] $ dayOfMonth, $ year";
печат "Тип на съдържанието: текст / html \ n \ n";
печат <

Прост Perl CGI


Прост Perl CGI


$ theTime



HTML
излезете;

Този нов CGI скрипт ще вмъква текущата дата в страницата при всяко извикване на скрипта. С други думи, става а динамичен документ, който се променя с промяната на датата, а не статичен документ.