_ TWF  _ Code Chap 14

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
HOME | BACK | NEXT | MENU | SEARCH | ORDER | COMMENT | HELPINFO -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

14code01.html


<ADDRESS>

<A NAME = "bottom"></A>

E-Mail: <A HREF="mailto:etittel@zilker.net">

LANWrights via etittel@zilker.net</A><BR>

Snail-mail: 5810 Lookout Mountain Drive<BR>

Austin, TX 78731-3618 USA

</ADDRESS>


14code02.pl


print "Content-type> text/html\n\n";

print "<HTML>";

print '<!DOCTYPE PUBLIC HTML "-//IETF//DTD HTML 2.0//EN" >',"\n";


14code03.pl


$Q = '"';

print "<HTML>\n";

print "<HEAD>\n";

print "<TITLE>, &Title </TITLE>\n";

if ($BASE gt "") {print "<BASE HREF=",$Q,$BASE,$Q, ">"};

if ($NEXTID gt "") {print "<NEXTID N=",$Q,$NEXTID,$Q, ">"};

print "</HEAD>\n";

print "<BODY>\n;


14code04.html


<B><A HREF = "#b2"> NEXT BOOK</A> &#32;&#124;

<A HREF = "#top"> TOP OF PAGE</A> &#32;&#124;

<A HREF = "lanwrght.html"> HOME</A> &#32;&#124;

<A HREF = "lanwcmmt.html"> COMMENT</A></B>


14code05.pl


$Q = '"';

print "<B><A HREF = ",$Q,$NEXT_BOOK, '</A> &#32;&#124;',"\n";

print '<A HREF = "#top"> TOP OF PAGE</A> &#32;&#124;',"\n";

print '<A HREF = "lanwrght.html"> HOME</A> &#32;&#124;',"\n";

print '<A HREF = "lanwcmmt.html"> COMMENT</A></B>',"\n";


14code06.pl


print"<PRE>\n";

open (HTML_PRE, "/path/to/the/right/file.txt");

while (<HTML_PRE>) {

  print

}

close HTML_PRE;

print "</PRE>\n";


14code07.pl


$Q = '"';

print "<HR>";

print "<ADDRESS>\n";

print '<A NAME = "bottom"></A>',"\n";

print 'E-Mail: <A HREF="mailto:etittel@zilker.net">LANWrights via 

etittel@zilker.net</A><BR>',"\n";

print 'Snail-mail: 5810 Lookout Mountain Drive<BR>',"\n";

print 'Austin, TX 78731-3618 USA',"\n";

print '</ADDRESS>',"\n";

print "URL: <A HREF =",$Q,$URL,$Q, ">\n",$URL, "</A>\n";

print "Revised -- June 5th, 1995 [JMS - IMPACT Online]<BR>\n";

print "</BODY>\n";

print "</HTML>\n";


-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
HOME | BACK | NEXT | MENU | SEARCH | ORDER | COMMENT | HELPINFO -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

E-Mail: The Web Foundations at twf@lanw.com
URL: http://www.lanw.com/twf/codech14.htm
Text - Copyright © 1995, Ed Tittel, Mark Gaither, Sebastian Hassinger, & Mike Erwin.
Web Layout - Copyright © 1995, LANWrights & IMPACT Online.
Revised -- February 15th, 1996 [James Michael Stewart - WebMaster - IMPACT Online]

HTML 2.0 Checked!