----- Original Message -----
From: "Derek Duhon" <[EMAIL PROTECTED]>
To: "鏡花水月" <[EMAIL PROTECTED]>
Sent: Sunday, June 03, 2001 11:22 PM
Subject: Re: problem
> An update on my little problem
> I took the advice many of you gave me, and escaped out the quotes, which
did
> in fact prove helpful, although my current dilemma is still more
> interesting.
>
> As you know, environment variables when running the perl script from
> terminal, and as a cgi through a web browser, are different. Since %ENV
is
> an associative array, I made things a little easier by putting it in a
> normal array and referencing where I think the value of query string is,
> whether or not this is correct in the web browser I do not know. First,
> here is my source
>
> #!/usr/local/bin/perl
> $" = "\n";
> @ENV = %ENV;
> $current = $ENV[20];
> $next = $current + 1;
> $prev = $current - 1;
> $output = "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>";
> print $output;
>
> I know the assignment and subsequent printing of $output seems pointless,
> but it was my last experiment to see if I could get it to work. Now,
herein
> lies the peculiarity. When I run this script in terminal, I get the
> following output
>
> Content-type: text/html
>
> <HTML><HEAD><TITLE>Endless!</TITLE></HEAD><BODY BGCOLOR = "#000000"><FONT
> COLOR = "red"><H5>USER</H5><HR COLOR = "red"><A HREF = endless?-1>Previous
> Page</a> | <A HREF = endless?1>Next Page</A></FONT></BODY></HTML>
>
> in terminal, the key user is in the place where the value of query string
> would be in browser (i think). This code seems to work perfectly in every
> way in the browser, except for the fact that it simply does not want to
read
> in the value of the variables, as you can see at
> http://i.got.denied.net/~hentai69/cgi-bin/endless
>
> if anyone is curious, the exercise I am trying to do was gotten from this
> page
> http://www.comp.leeds.ac.uk/Perl/Cgi/environment.html
>
> I hope my future perl programs don't have this much trouble...
>
> P.S. if you want to suggest I try putting the variable names into $(name)
> format, I already tried it to no avail
>
>
>
>
>
> ----- Original Message -----
> From: "鏡花水月" <[EMAIL PROTECTED]>
> To: "Derek Duhon" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
> Sent: Sunday, June 03, 2001 8:20 AM
> Subject: Re: problem
>
>
> > I think you may try to use :
> >
> > print "Content-type: text/html\n\n";
> > print "<html>...........";
> > print "other statements";
> >
> >
> >
> >
> > ----- Original Message -----
> > From: Derek Duhon <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Sunday, June 03, 2001 11:29 AM
> > Subject: problem
> >
> >
> > 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>";
> >
> >
> >
>
