With back-slashing you need to \ the " chars within the string like so (BTW generally you don't need STDOUT as this is the default):
print STDOUT "<FONT COLOR=\"red\">$data</FONT>";
The \ lets Perl know you mean a literal " not a " as in the end of the string you are printing. Typically you avoid this problem using heredocs or the qq operator
# to print a bunch of HTML using a heredoc I would do: print <<HTML; <html> <head> <title> $title </title> </head> <body> <P><FONT COLOR="red">$data</FONT> <P>$some_content <-- continue --> </body> </html> HTML # or you can do this with qq (non interpolated text must not contain ! + char) print qq! <html> <head> <title> $title </title> </head> <body> <P><FONT COLOR="red">$data</FONT> <P>$some_content <-- continue --> </body> </html> !;
"red" is fine but if you want to use hex it is #RRGGBB where #FF0000 is red and #0000FF is blue.
cheers
tachyon
s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print
In reply to Re: HTML embedded in perl
by tachyon
in thread HTML embedded in perl
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |