CGI.pm - CGI.pm

CGI.pm
Původní autořiLincoln Stein
VývojářiLee Johnson
Stabilní uvolnění
4.21 / 2015-06-22
PlošinaPerl
TypModul Perl pro CGI
webová stránkametakpan.org/uvolnění/ CGI

CGI.pm je velký a kdysi široce používaný Modul Perl pro programování Společné rozhraní brány (CGI) web aplikace, poskytuje konzistentní API pro příjem a zpracování vstupu uživatele. Existují také funkce pro výrobu HTML nebo XHTML výstup, ale ty jsou nyní neudržované a je třeba se jim vyhnout.[1] CGI.pm byl jádrový modul Perl, ale byl odstraněn od verze 5.22 Perlu.[2] Modul napsal Lincoln Stein a nyní je udržován Lee Johnsonem.

Příklady

Zde je jednoduchá stránka CGI napsaná v Perlu pomocí CGI.pm (v objektově orientovaný styl):

#! / usr / bin / env perlpoužití přísný;použití varování;použití CGI;můj $ cgi = CGI->Nový;tisk $ cgi->záhlaví('text / html');tisk << „EndOfHTML“;<!DOCTYPE html><html>    <head>        <title>A Jednoduchý CGI Strana</title>        <meta http-ekv="Typ obsahu" obsah=„text / html; charset = iso-8859-1“ />    </head>    <body>        <h1>A Jednoduchý CGI Strana</h1>        <formulář metoda="pošta" enctype="multipart / form-data">            Název: <vstup typ="text" název="název"  /> 
>            Stáří: <vstup typ="text" název="stáří"  /><p>            <vstup typ="Předložit" název="Předložit!" hodnota="Předložit!" />        </form>        <hr />EndOfHTML-li ( můj $ jméno = $ cgi->param('název') ) {    tisk „Vaše jméno je $ name. 
“;}-li ( můj $ věk = $ cgi->param('stáří') ) {    tisk „Jste $ age years old.“;}tisk „“;

Tím se vytiskne velmi jednoduchý webový formulář s dotazem na vaše jméno a věk a po odeslání se formulář znovu zobrazí se jménem a věkem zobrazeným pod ním. Tato ukázka využívá objektově orientované schopnosti CGI.pm; lze to provést také voláním funkcí přímo, bez $ cgi->, nicméně nezbytné funkce musí být importovány do jmenného prostoru skriptu, který vyžaduje přístup k těmto funkcím:

#! perlpoužití přísný;použití varování;použití CGI qw /: standardní /;tisk záhlaví('text / html');# ... HTML výstup stejný jako výše uvedený příklad-li ( můj $ jméno = param('název') ) {    tisk „Vaše jméno je $ name. 
“;}-li ( můj $ věk = param('stáří') ) {    tisk „Jste $ age years old.“;}tisk „“;

Poznámka: v mnoha příkladech $ q, zkratka pro dotaz, se používá k uložení objektu CGI.

Viz také

Reference

  1. ^ https://metacpan.org/pod/distribution/CGI/lib/CGI.pod#HTML-Generation-functions-should-no-longer-be-used
  2. ^ https://metacpan.org/pod/distribution/CGI/lib/CGI.pod#CGI.pm-HAS-BEEN-REMOVED-FROM-THE-PERL-CORE

externí odkazy