equal
deleted
inserted
replaced
55 </tbody> |
55 </tbody> |
56 </table> |
56 </table> |
57 |
57 |
58 <h2>Perl</h2> |
58 <h2>Perl</h2> |
59 <p>Jazyky použité nebo citované na této stránce:</p> |
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 --> |
60 <pre><m:skript jazyk="perl"><![CDATA[ |
64 <pre><m:skript jazyk="perl"><![CDATA[ |
61 use strict; |
65 use strict; |
62 |
66 |
63 open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"}); |
67 open(XML, "<", $ENV{"XWG_STRANKA_SOUBOR"}); |
64 my %skripty; |
68 my %skripty; |