view perl/menu.pl @ 27:5cba379693e7 judyates

whatever
author Robert McIntyre <rlm@mit.edu>
date Sat, 18 Apr 2015 21:23:32 -0700
parents b6ba604307fc
children
line wrap: on
line source
1 open FILE, ">../menu.html";
2 select FILE;
3 print <<HERE;
5 <div class = "menu">
6 <ul class = "menu">
8 <li class = "menu"><a class = "menu" href = "index.html">( Home</a></li>
9 <li class = "menu"><a class = "menu" href = "Meet the Artist2.html">Judy Yates</a></li>
10 <li class = "menu"><a class = "menu" href = "Contact.html">Contact )</a></li>
11 <li class = "menu"> <a class = "menu" href = "hto.html">( Custom Art</a></li>
12 <li class = "menu"><a class = "menu" href = "recent_sales.html">Prints</a></li>
13 <li class = "menu"><a class = "menu" href = "photos.html">Photos )</a></li>
14 <li class = "menu"><a class = "menu" href = "gallery1.html">( Gallery</a></li>
15 <li class = "menu"><a class = "menu" href = "pets1.html">Pets )</a></li>
16 </ul>
17 </div>
19 HERE
22 open FILE, ">../menu2.html";
23 select FILE;
24 print <<HERE;
26 <div class = "menu">
27 <ul class = "menu">
29 <li class = "menu"><a class = "menu" href = "../index.html">( Home</a></li>
30 <li class = "menu"><a class = "menu" href = "../Meet the Artist2.html">Judy Yates</a></li>
31 <li class = "menu"><a class = "menu" href = "../Contact.html">Contact )</a></li>
32 <li class = "menu"> <a class = "menu" href = "../hto.html">( Custom Art</a></li>
33 <li class = "menu"><a class = "menu" href = "../recent_sales.html">Prints</a></li>
34 <li class = "menu"><a class = "menu" href = "../photos.html">Photos )</a></li>
35 <li class = "menu"><a class = "menu" href = "../gallery1.html">( Gallery</a></li>
36 <li class = "menu"><a class = "menu" href = "../pets1.html">Pets )</a></li>
37 </ul>
38 </div>
40 HERE