[MacPerl] TerminatorString

[Peta Adams - John Murray <jmnc@lis.net.au>]

Running of A giving B. What can't I see?

B. # Can't find string terminator "HTML" anywhere before EOF.
File 'Hard Disk:Desktop Folder:AMP WEB DB:lsinitemtest'; Line 11

A. #############
#! perl -w

open (INVITS, '<Hard Disk:Desktop Folder:AMP WEB DB:invitems.txt') or die
('Problem with open of invitems.txt');
print <<'HTML';
... some stuff to print ...
HTML
while (defined ($readline = <INVITS>)){
	chomp $readline;
	$readline =~ s/~~~/<br>/g;
	@rec = split (/:::/,$readline);
	print <<"HTML";
	... some stuff to print ...
	HTML
}
print <<'HTML';
... some stuff to print ...
HTML
############



===== Want to unsubscribe from this list?
===== Send mail with body "unsubscribe" to macperl-request@macperl.org