Perl (89) - Mason - snadné psaní webů

Perl Chcete psát weby v Perlu stejně jednoduše jako v PHP? Použijte Mason.

5.10.2009 01:00 | Jiří Václavík | přečteno 14203×

Slovo mason můžeme do češtiny přeložit jako kameník. Tento název o možnostech Masonu již mnohé vypovídá. mod_perl totiž ve spolupráci s Masonem vytváří výkonný systém, umožňující kombinování kódu Perlu přímo se značkovacím jazykem - tedy HTML kódem.

Tuto metodu lze přirovnat k PHP. Přestože lze PHP provozovat jako CGI nebo na příkazovém řádku, v naprosté většině případů funguje právě na výše uvedeném principu.

Výhodou mod_perl oproti PHP je dostupnost všech nástrojů Perlu. Narozdíl od PHP tak lze vytvářet jmenné prostory a máme zde daleko větší možnosti znovupoužitelného kódu. Můžeme využít archivu CPAN, jehož obdoba pro PHP ani žádný jiný jazyk neexistuje. Naopak nevýhodou je rozšířenost.

Instalace

Abychom mohli Mason používat, je třeba nainstalovat mod_perl. Masonem bez mod_perlu se zabývat nebudeme. Stáhneme tedy nejnovější verzi. Dostupná je na domovské stránce modulu perl.apache.org/download/index.html.

Stažený tar.gz soubor rozbalíme a nainstalujeme sekvencí těchto tří příkazů.

$ perl Makefile.PL MP_APXS=/usr/local/apache2/bin/apxs
$ make && make test
$ su -c 'make install'

Pokud nenastal problém, následuje instalace samotného modulu HTML::Mason. Spusťme CPAN shell a nainstalujme ho příkazem install. Může to chvilku trvat, protože se pravděpodobně bude instalovat i větší množství závislostí.

$ perl -MCPAN -eshell
cpan> install HTML::Mason

Konfigurace Apache

Poslední věcí pro fungování Masonu je konfigurace Apache. Je třeba upravit soubor /usr/local/apache2/conf/httpd.conf. Nejprve přidáme řádek, který aktivuje mod_perl.

LoadModule perl_module modules/mod_perl.so

Dále nastavíme, aby všechny soubory s příponou html byly brány jako Mason soubory.

<LocationMatch "\.html$">
  SetHandler perl-script
  PerlHandler HTML::Mason::ApacheHandler
</LocationMatch>

Aby se projevily změny, restartujeme Apache.

/usr/local/apache2/bin/apachectl restart

Pokud se neobjevila žádná chyba, měl by být Mason aktivní.

Jak to funguje

Aplikace v Masonu se skládá z komponent. Komponenta je jeden soubor, ve kterém se mísí text s řídícími prvky Masonu. Webová stránka může být výsledkem kombinace více komponent. Jedna může rozhodovat o menu, jiná o zápatí apod.

Základní syntaxe

Ke vkládání perlového nebo speciálního kódu definuje Mason několik vlastních značek. Jsou uvedeny v tabulce.

TagVýznam
<% ... %>obsahuje výraz, ten se vyhodnotí a výsledek se pošle na výstup
% ...řádek kódu Perlu
<%blok> ... </%blok>blok se nahrazuje klíčovým slovem, na něm závisí význam obsahu tagu

Uveďme si vůbec první příklad využívající technologie mod_perl. Zde je zdrojový kód.

% my $cim = "Masonem";
<h1>Tato stranka je generovana <% $cim %>!</h1>

Deklarace pomocí my je nutná, neboť Mason strict režim implicitně zapíná.

Uložíme si kód do souboru hello.html, umístěného do adresáře /usr/local/apache2/htdocs. Nyní skript spustíme přes server v prohlížeči.

Výsledek našeho prvního Mason skriptu

Výsledek prvního Mason skriptu

Není těžké uhodnout, jak tento program pracuje. Úvodní řádek je uvozen procentem, což znamená, že obsahuje kód Perlu. Druhý řádek je normálně odesílán na výstup, ale ještě předtím se vyhodnotí výraz mezi <% a %>.

Blok perlového kódu bychom také mohli označit <%perl> ... </%perl>. Tento tag použijeme zejména tam, kde bude třeba označit více než několik řádků. Samozřejmě, že lze oba způsoby označení zaměňovat.

Escapování hodnot

Uvnitř <% ... %> lze uvést takzvaný přepínač. Ten specifikuje, zda a pokud ano, tak jak, se má escapovat výsledek výrazu. Jsou dvě možnosti escapování: HTML nebo URL.

Abychom pochopili význam escapování nebezpečných znaků, zkusme spustit tento kód.

% my $v = "<OK>";
Stav: <% $v %>

Hodnota $v se na výsledné stránce nepromítne. Interpret HTML si myslí, že <OK> je element jazyka.

Nyní nahradíme znaky <> příslušnými HTML escape sekvencemi. A to tak, že uvedeme přepínač h. Přepínače se uvádějí na konec výrazu za znak |. Pro URL escapování bychom zvolili přepínač u.

% my $v = "<OK>";
Stav: <% $v | h %>
Online verze článku: http://www.linuxsoft.cz/article.php?id_article=1643