/usr/share/doc/libxml-grove-perl/examples/my-html.html is in libxml-grove-perl 0.46alpha-12.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | <!--
Copyright (C) 1997, 1998 Ken MacLeod
See the file COPYING for distribution terms.
$Id: my-html.html,v 1.1 1998/04/05 17:11:09 ken Exp $
This file can be used with the `my-html.pl' example.
-->
<HTML>
<HEAD>
<TITLE>This is the title of my page</TITLE>
</HEAD>
<BODY>
<H1>This is the body of my page.</H1>
<P>This page was rendered on <DATE/></P>
<P>Perl code can be used to generate any output you want. Here's
a list of primes between 1 and 100.</P>
<P>
<!-- this is a ``CDATA marked section'', the only special
characters in a CDATA marked section are the the closing
characters `]]>'. And no, they can't be escaped :-( -->
<PERL><![CDATA[
@primes = (1);
OUTER:
for ($ii = 2; $ii <= 100; $ii ++) {
for ($jj = 2; $jj < ($ii+1)/2; $jj ++) {
next OUTER if (($ii % $jj) == 0);
}
push (@primes, $ii);
}
print join (", ", @primes);
]]></PERL></P>
</BODY>
</HTML>
|