equal
deleted
inserted
replaced
62 } |
62 } |
63 ]]></m:skript> |
63 ]]></m:skript> |
64 </tbody> |
64 </tbody> |
65 </table> |
65 </table> |
66 |
66 |
67 <h2>Perl – ukázka</h2> |
67 <h3>Perl – ukázka</h3> |
68 <p>Jazyky použité nebo citované na této stránce:</p> |
68 <p>Jazyky použité nebo citované na této stránce:</p> |
69 <!-- |
69 <!-- |
70 Lepšího výsledku bychom samozřejmě dosáhli pomocí XPath dotazu, |
70 Lepšího výsledku bychom samozřejmě dosáhli pomocí XPath dotazu, |
71 ale toto je příklad na Perl :-) |
71 ale toto je příklad na Perl :-) |
72 --> |
72 --> |
86 for(keys(%skripty)) { |
86 for(keys(%skripty)) { |
87 print "$skripty{$_}×\t $_\n"; |
87 print "$skripty{$_}×\t $_\n"; |
88 } |
88 } |
89 ]]></m:skript></pre> |
89 ]]></m:skript></pre> |
90 |
90 |
91 <h2>BASH – ukázka</h2> |
91 <h3>BASH – ukázka</h3> |
92 <pre><m:skript jazyk="bash"><![CDATA[ |
92 <pre><m:skript jazyk="bash"><![CDATA[ |
93 echo -n "Právě je: "; |
93 echo -n "Právě je: "; |
94 date; |
94 date; |
95 echo -n "Operační systém: "; |
95 echo -n "Operační systém: "; |
96 uname -o; |
96 uname -o; |
174 # abychom nezpůsobili chybu GraphVizu. |
174 # abychom nezpůsobili chybu GraphVizu. |
175 print "n$i [label=\"$_\"];\n"; |
175 print "n$i [label=\"$_\"];\n"; |
176 print "koren -> n$i;\n"; |
176 print "koren -> n$i;\n"; |
177 $i++; |
177 $i++; |
178 } |
178 } |
|
179 |
179 print "</m:diagram>"; |
180 print "</m:diagram>"; |
180 closedir(DIR); |
181 closedir(DIR); |
181 ]]></m:skript> |
182 ]]></m:skript> |
182 |
183 |
183 <p>…třeba vygenerovat tento diagram následujícím perlovským skriptem:</p> |
184 <p>…třeba vygenerovat tento diagram následujícím perlovským skriptem:</p> |
200 # abychom nezpůsobili chybu GraphVizu. |
201 # abychom nezpůsobili chybu GraphVizu. |
201 print "n$i [label=\"$_\"];\n"; |
202 print "n$i [label=\"$_\"];\n"; |
202 print "koren -> n$i;\n"; |
203 print "koren -> n$i;\n"; |
203 $i++; |
204 $i++; |
204 } |
205 } |
|
206 |
205 print "</m:diagram>"; |
207 print "</m:diagram>"; |
206 closedir(DIR);]]></m:pre> |
208 closedir(DIR);]]></m:pre> |
207 |
209 |
208 <p> |
210 <p> |
209 Který vložíme zabalený v <code><![CDATA[<m:skript jazyk="perl" výstup="xhtml"> … </m:skript>]]></code> do stránky. |
211 Který vložíme zabalený v <code><![CDATA[<m:skript jazyk="perl" výstup="xhtml"> … </m:skript>]]></code> do stránky. |