Pet Portrait Gallery

rlm@0: rlm@0: @dogs = qw ( rlm@0: rlm@0: san_photo010(small).jpg rlm@0: san_photo011(small).jpg rlm@0: san_photo012(small).jpg rlm@0: san_photo013(small).jpg rlm@0: san_photo014(small).jpg rlm@0: san_photo015(small).jpg rlm@0: san_photo016(small).jpg rlm@0: san_photo017(small).jpg rlm@0: san_photo018(small).jpg rlm@0: san_photo019(small).jpg rlm@0: san_photo020(small).jpg rlm@0: san_photo021(small).jpg rlm@0: san_photo022(small).jpg rlm@0: san_photo023(small).jpg rlm@0: san_photo024(small).jpg rlm@0: san_photo025(small).jpg rlm@0: san_photo026(small).jpg rlm@0: san_photo027(small).jpg rlm@0: san_photo028(small).jpg rlm@0: san_photo029(small).jpg rlm@0: san_photo030(small).jpg rlm@0: san_photo031(small).jpg rlm@0: san_photo032(small).jpg rlm@0: san_photo033(small).jpg rlm@0: san_photo034(small).jpg rlm@0: san_photo035(small).jpg rlm@0: san_photo036(small).jpg rlm@0: san_photo037(small).jpg rlm@0: san_photo038(small).jpg rlm@0: san_photo039(small).jpg rlm@0: san_photo040(small).jpg rlm@0: san_photo041(small).jpg rlm@0: san_photo042(small).jpg rlm@0: san_photo045(small).jpg rlm@0: san_photo046(small).jpg rlm@0: san_photo047(small).jpg rlm@0: san_photo048(small).jpg rlm@0: san_photo049(small).jpg rlm@0: san_photo050(small).jpg rlm@0: san_photo051(small).jpg rlm@0: san_photo055(small).jpg rlm@0: san_photo056(small).jpg rlm@0: san_photo057(small).jpg rlm@0: san_photo058(small).jpg rlm@0: ); rlm@0: rlm@0: @dogs1 = qw( rlm@0: rlm@0: san_photo010 rlm@0: san_photo011 rlm@0: san_photo012 rlm@0: san_photo013 rlm@0: san_photo014 rlm@0: san_photo015 rlm@0: san_photo016 rlm@0: san_photo017 rlm@0: san_photo018 rlm@0: san_photo019 rlm@0: san_photo020 rlm@0: san_photo021 rlm@0: san_photo022 rlm@0: san_photo023 rlm@0: san_photo024 rlm@0: san_photo025 rlm@0: san_photo026 rlm@0: san_photo027 rlm@0: san_photo028 rlm@0: san_photo029 rlm@0: san_photo030 rlm@0: san_photo031 rlm@0: san_photo032 rlm@0: san_photo033 rlm@0: san_photo034 rlm@0: san_photo035 rlm@0: san_photo036 rlm@0: san_photo037 rlm@0: san_photo038 rlm@0: san_photo039 rlm@0: san_photo040 rlm@0: san_photo041 rlm@0: san_photo042 rlm@0: san_photo045 rlm@0: san_photo046 rlm@0: san_photo047 rlm@0: san_photo048 rlm@0: san_photo049 rlm@0: san_photo050 rlm@0: san_photo051 rlm@0: san_photo055 rlm@0: san_photo056 rlm@0: san_photo057 rlm@0: san_photo058 rlm@0: ); rlm@0: rlm@0: @cats = qw( rlm@0: rlm@0: rlm@0: san_photo001(small).jpg rlm@0: san_photo002(small).jpg rlm@0: san_photo003(small).jpg rlm@0: san_photo004(small).jpg rlm@0: san_photo005(small).jpg rlm@0: san_photo039(small).jpg rlm@0: san_photo051(small).jpg rlm@0: san_photo052(small).jpg rlm@0: san_photo053(small).jpg rlm@0: san_photo054(small).jpg rlm@0: ); rlm@0: rlm@0: @cats1 = qw( rlm@0: san_photo001 rlm@0: san_photo002 rlm@0: san_photo003 rlm@0: san_photo004 rlm@0: san_photo005 rlm@0: san_photo0xx rlm@0: san_photo0x2 rlm@0: san_photo052 rlm@0: san_photo053 rlm@0: san_photo054 rlm@0: ); rlm@0: rlm@0: rlm@0: rlm@0: @horses = qw( rlm@0: rlm@0: san_photo006(small).jpg rlm@0: san_photo007(small).jpg rlm@0: san_photo008(small).jpg rlm@0: san_photo009(small).jpg rlm@0: ); rlm@0: rlm@0: @horses1 = qw( rlm@0: san_photo006 rlm@0: san_photo007 rlm@0: san_photo008 rlm@0: san_photo009 rlm@0: ); rlm@0: rlm@0: rlm@0: rlm@0: &make_page(1,"cats"); rlm@0: &make_page(2,"dogs"); rlm@0: &make_page(3,"horses"); 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, ">../pets$page.html"; rlm@0: select FILE; rlm@0: rlm@0: print < rlm@0: Pet Portrait Gallery 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@15: $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/pets$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@15: }