Re: [MacPerl-WebCGI] font tag

[Richard Gordon <maccgi@bellsouth.net>]

<fontfamily><param>Times_New_Roman</param>print "<<H1
ALIGN=CENTER>Search Results<</H1>\n";


</fontfamily><fontfamily><param>Arial</param>I have changed it to
this-


</fontfamily><fontfamily><param>Times_New_Roman</param>print "<<FONT
FACE="Arial" SIZE="+1">";

print "<<B>Search Results <</B><</FONT>\n";


</fontfamily><fontfamily><param>Arial</param>Whats wrong with that? why
does my perl script not work now?

</fontfamily></color></excerpt><color><param>0100,0100,0100</param><fontfamily><param>Arial</param>

</fontfamily></color>You have problems with the quoting and you lack a
\n to terminate the first line, e.g.:


# Bareword found where operator expected, near ""<<FONT FACE="Arial"

File '<<AppleEvent>'; Line 1

# 	(Missing operator before Arial?)

# syntax error, near ""<<FONT FACE="Arial"

File '<<AppleEvent>'; Line 1

# String found where operator expected, near "Arial" SIZE=""

File '<<AppleEvent>'; Line 1

# String found where operator expected, near "1">""

File '<<AppleEvent>'; Line 1

# 	(Missing operator before ">"?)

# <<AppleEvent> had compilation errors.


The most legible way to fix this is to change the first line to:


print qq(<<FONT FACE="Arial" SIZE="+1">\n);

Richard Gordon

--------------------

Gordon Consulting & Design

Database Design/Scripting Languages

mailto://maccgi@bellsouth.net

770.565.8267

</x-rich>