root/vstup/skriptování.xml @ 99:81056b24a948

Revision 99:81056b24a948, 3.6 KB (checked in by František Kučera <franta-hg@…>, 13 years ago)

#20 Skriptování: komentář – XPath vs. Perl

Line 
1<stránka
2        xmlns="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/strana"
3        xmlns:m="https://trac.frantovo.cz/xml-web-generator/wiki/xmlns/makro">
4        <nadpis>Skriptování</nadpis>
5        <perex>Na stránku můžeme vložit výstup skriptů.</perex>
6        <pořadí>50</pořadí>
7
8        <text xmlns="http://www.w3.org/1999/xhtml">
9       
10                <p>
11                        Na stránkách můžeme používat skripty.
12                        Spouští se při generování a jejich standardní výstup se vloží do stránky.
13                        Třeba doprostřed textu ostavce nebo do jiného elementu.
14                </p>
15                <p>
16                        Příklad:
17                        <em>
18                                Tyto stránky byly vygenerované v systému
19                                <span title="tento text pochází ze skriptu"><m:skript jazyk="bash">uname -o</m:skript></span>.
20                        </em>
21                </p>
22
23                <p>
24                        Díky skriptování můžeme stránky obohatit o prakticky libovolný obsah.
25                        Tato funkce ale může být nebezpečná – pokud byste spustili generátor na stránkách,
26                        které psal někdo nedůvěryhodný a vložil do nich škodlivý kód.
27                        Proto je skriptování ve výchozím stavu vypnuté – je potřeba ho povolit v souboru <code>web.conf</code>.
28                </p>
29
30                <h2>Podporované jazyky</h2>
31                <p>
32                        V současnosti jsou podporované tyto jazyky:
33                </p>
34               
35                <table>
36                        <thead>
37                                <tr>
38                                        <td>Jazyk</td>
39                                        <td>Interpret</td>
40                                </tr>
41                        </thead>
42                        <tbody>
43                                <m:skript jazyk="perl"  stup="xml"><![CDATA[
44use strict;
45
46open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
47
48while (<JAVA>) {
49#i.put("bash", "/bin/bash");
50        if (/podporovanýJazyk\.put\("(\w+)",\s*"(.*)"\);/) {
51                print "<tr><td><code>$1</code></td><td><code>$2</code></td></tr>\n";
52        }
53}
54                                ]]></m:skript>
55                        </tbody>
56                </table>
57
58                <h2>Perl</h2>
59                <p>Jazyky použité nebo citované na této stránce:</p>
60                <!--
61                        Lepšího výsledku bychom samozřejmě dosáhli pomocí XPath dotazu,
62                        ale toto je příklad na Perl :-)
63                -->
64                <pre><m:skript jazyk="perl"><![CDATA[
65use strict;
66
67open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"});
68my %skripty;
69
70while (<XML>) {
71        if (/m:skript\s+jazyk="(\w+)"/) {
72                $skripty{$1}++;
73        }
74}
75
76for(keys(%skripty)) {
77        print "$skripty{$_}×\t $_\n";
78}
79                        ]]></m:skript></pre>
80
81                        <h2>BASH</h2>
82                <pre><m:skript jazyk="bash"><![CDATA[
83echo -n "Právě je: ";
84date;
85echo -n "Operační systém: ";
86uname -sir;
87echo -n "SHA-1 otisk zdrojáku této stránky: ";
88sha1sum < $XWG_STRANKA_SOUBOR;
89                        ]]></m:skript></pre>
90
91                        <!--
92                        <h2>PHP</h2>
93                        <pre style="max-height: 200px;"><m:skript jazyk="php"><![CDATA[
94<?php
95phpinfo();
96?>
97                        ]]></m:skript></pre>
98                        -->
99
100                        <h2>Proměnné prostředí</h2>
101                        <p>
102                                Ve skriptech máme dostupné následující proměnné prostředí:
103                        </p>
104                       
105                        <table>
106                                <thead>
107                                        <tr>
108                                                <td>Proměnná</td>
109                                                <td>Význam</td>
110                                        </tr>
111                                </thead>
112                                <tbody>
113                                        <m:skript jazyk="perl" stup="xml"><![CDATA[
114use strict;
115
116open(JAVA, "<", $ENV{"XWG_SKRIPTOVANI_JAVA"}) or die $!;
117
118while (<JAVA>) {
119#i.put("bash", "/bin/bash");
120        if (/"(.*)=".*\/\/\s+env:(.*)/) {
121                print "<tr><td><code>$1</code></td><td>$2</td></tr>\n";
122        }
123}
124                                        ]]></m:skript>
125                                </tbody>
126                        </table>
127                       
128                        <p>
129                                Kód:
130                        </p>
131                       
132                        <m:pre jazyk="xml"><![CDATA[<m:skript jazyk="bash">
133echo "URI:    $XWG_STRANKA_URI";
134echo "Soubor: $XWG_STRANKA_SOUBOR";
135echo "Nadpis: $XWG_STRANKA_NADPIS";
136echo "Perex:  $XWG_STRANKA_PEREX";
137</m:skript>]]></m:pre>
138                       
139                        <p>nám vypíše:</p>
140                       
141                        <pre><m:skript jazyk="bash"><![CDATA[
142echo "URI:    $XWG_STRANKA_URI" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
143echo "Soubor: $XWG_STRANKA_SOUBOR" | sed s/\\/home\\/$USER/\\/home\\/xwg/g;
144echo "Nadpis: $XWG_STRANKA_NADPIS";
145echo "Perex:  $XWG_STRANKA_PEREX";
146                ]]></m:skript></pre>
147
148        </text>
149
150</stránka>
151
Note: See TracBrowser for help on using the browser.