#!/usr/local/bin/perl -w # read schedule2000.txt open (TEST, "schedule2000.txt"); chomp(@record2000 = ); close (TEST); # read schedule2001.txt open (TEST, "schedule2001.txt"); chomp(@record2001 = ); close (TEST); # find end of files $eof2000 = $#record2000; $eof2001 = $#record2001; $number = 0; for ($count = 0; $count <= $eof2000; $count += 6) { $event = $record2000[$count+0]; $date = $record2000[$count+1]; $time = $record2000[$count+2]; $place = $record2000[$count+3]; $sponsor = $record2000[$count+4]; $html2000[$number] = "" . "\n" . "$event" . "\n" . "$date" . "\n" . "$time" . "\n" . "$place" . "\n" . "$sponsor" . "\n" . "" . "\n\n"; $number++; } $number = 0; for ($count = 0; $count <= $eof2001; $count += 6) { $event = $record2001[$count+0]; $date = $record2001[$count+1]; $time = $record2001[$count+2]; $place = $record2001[$count+3]; $sponsor = $record2001[$count+4]; $html2001[$number] = "" . "\n" . "$event" . "\n" . "$date" . "\n" . "$time" . "\n" . "$place" . "\n" . "$sponsor" . "\n" . "" . "\n\n"; $number++; } print < Sammy Kaye Orchestra

2000 / 2001 Performance Schedule

Schedule subject to change without notice. Please contact the Sammy Kaye Orchestra or the event sponsor for confirmation of any event.

@html2000 @html2001
buttonPrinter Version
A black and white version of the schedule you can print and take with you.
2000
Event Date Time Place Sponsor Contact
2001
Event Date Time Place Sponsor Contact

Sammy Kaye / Roger Thorpe / Listening Booth
Performance Reviews / Fan Club / Performance Schedule
button
Home

HTML