rlm@0: rlm@0: @hunt = qw( rlm@0: (small)hunting_1.jpg rlm@0: (small)hunting_2.jpg rlm@0: (small)hunting_3.jpg rlm@0: (small)hunting_4.jpg rlm@0: (small)hunting_5.jpg rlm@0: (small)hunting_6.jpg rlm@0: (small)hunting_7.jpg rlm@0: (small)hunting_8.jpg rlm@0: (small)hunting_9.jpg rlm@0: (small)hunting_10.jpg rlm@0: (small)hunting_11.jpg rlm@0: (small)hunting_12.jpg rlm@0: ); rlm@0: rlm@0: @hunt1 = qw( rlm@0: hunting_1 rlm@0: hunting_2 rlm@0: hunting_3 rlm@0: hunting_4 rlm@0: hunting_5 rlm@0: hunting_6 rlm@0: hunting_7 rlm@0: hunting_8 rlm@0: hunting_9 rlm@0: hunting_10 rlm@0: hunting_11 rlm@0: hunting_12 rlm@0: ); rlm@0: rlm@0: @duck1 = qw( rlm@0: rlm@0: stamp001 rlm@0: stamp003 rlm@0: stamp005 rlm@0: stamp007 rlm@0: stamp009 rlm@0: stamp011 rlm@0: rlm@0: ); rlm@0: rlm@0: rlm@0: rlm@0: @duck = qw( rlm@0: stamp001(small).jpg rlm@0: stamp003(small).jpg rlm@0: stamp005(small).jpg rlm@0: stamp007(small).jpg rlm@0: stamp009(small).jpg rlm@0: stamp011(small).jpg rlm@0: ); rlm@0: rlm@0: &make_page(1,"hunt"); rlm@0: &make_page(2,"duck"); rlm@0: rlm@0: rlm@0: rlm@0: sub make_page{ rlm@0: rlm@0: rlm@0: $page = $_[0]; rlm@0: $arr = $_[1]; rlm@0: rlm@0: @names = @{$arr}; rlm@0: rlm@0: @namess = @{$arr."1"}; rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: open FILE, ">../Meet the Artist$page.html"; rlm@0: select FILE; rlm@0: rlm@0: print < rlm@0: Biography of Judy Yates rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: HERE rlm@0: open MENU, "<../menu.html"; rlm@0: while (){print;} rlm@0: close MENU; rlm@0: rlm@0: print < rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: HERE rlm@0: rlm@0: $menux = ''; rlm@0: print "
$menux
"; rlm@0: rlm@0: rlm@0: $start = 0; rlm@0: $end = $#namess; rlm@0: print ''; rlm@0: rlm@0: foreach($start..$end){ rlm@0: #print "\n\n****".($_%3)."****\n\n"; rlm@0: if (($_%3 )== 0){print ''; } rlm@0: print ''; rlm@0: if (($_%3) == 2){print ''; } rlm@0: rlm@0: } rlm@0: rlm@0: rlm@0: print < rlm@0: rlm@0: rlm@0:
'; rlm@0: $name = $names[$_]; rlm@0: $namess = $namess[$_]; rlm@0: print ' '."\n"; rlm@0: print '
rlm@0: THERE rlm@0: rlm@0: if (open TXT, "<../texts/Meet the Artist$page.txt"){ rlm@0: while (){print;} rlm@0: close TXT; rlm@0: } rlm@0: rlm@0: rlm@0: rlm@0: open MENU, "<../menu.html"; rlm@0: while (){print;} rlm@0: close MENU; rlm@0: rlm@0: print < rlm@0: rlm@0: rlm@0: rlm@0: rlm@0: THERE rlm@0: rlm@0: rlm@0: }