You should escape all of the quotes that you want printed.

print "Content-type: text/html\n\n<HTML><HEAD><TITLE>Endless!</TITLE></HEAD><BODY 
BGCOLOR = \"#000000\"><FONT COLOR = \"red\"><H5>$current</H5><HR COLOR = \"red\"><A 
HREF = \"endless?$prev\">Previous Page</a> | <A HREF = \"endless?$next\">Next 
Page</A></FONT></BODY></HTML>";


Johnathan Thibodeau

Pound bang user bin perl
fork while true

On Sat, 2 Jun 2001, Derek Duhon wrote:

> I have a print statement that prints out an html page, and after a lot of tinkering, 
>I still can't get it to work.  It prints out the html perfectly, but I can't seem to 
>find a way for it to print the contents of the scalar statements.  The print 
>statement is encased in "".  Here is my source
> 
> #!usr/local/bin/perl
> #
> #Program to generate endless webpage
> $current = $ENV{"QUERY_STRING"};
> $next = ++$current;
> $prev = --$current;
> print "Content-type: text/html\n\n<HTML><HEAD><TITLE>Endless!</TITLE></HEAD><BODY 
>BGCOLOR = "#000000"><FONT COLOR = "red"><H5>$current</H5><HR COLOR = "red"><A HREF = 
>"endless?$prev">Previous Page</a> | <A HREF = "endless?$next">Next 
>Page</A></FONT></BODY></HTML>";
> 
> 

Reply via email to