httpd-users mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From eric lin <fs...@centurytel.net>
Subject Re: [users@httpd] Re: what is perl 's syntax
Date Sat, 14 Dec 2002 11:02:49 GMT


Philip M. Gollucci wrote:
> see 
> perldoc -f print 
> for why
> also see perldoc CGI
> 
> 
> #!/usr/bin/perl -wT
> 
> use strict;
> use CGI qw (:standard);
> 
> print header();
> print start_html();
> print "This is an exmaple CGI script.\n";
> 
> foreach (param()) {
>   print "<p>\n";
>   print "$_ has value(s) => ";
>   print param($_);
>   print "</p>\n";
> }
> 
> print end_html();
> 
> 
Same thing, only show "This is an example CGI script."

I keep doubt it is my httpd and perl module did not configure well

any opinion?


> #!/usr/bin/perl    -wT
> 
>>use strict;
>>use CGI ':standard';
>>use CGI qw(:standard);
>>
>>my @param=param();
>>
>>print "Content-type: text/html\n\n";
>>print "<html><body>\n";
>>print "This is an example CGI script.\n";
>>
>>foreach my $name (param()) {
>>   my @value = param($name);
>>   print "<p>The field with the NAME attriabute equal to <b>
>>   $name</b> had a VALUE equal to <b>@value</b></p>\n";
>>   }
>>print "</body></html>";
> 
> 
> On Sat, 2002-12-14 at 10:22, eric lin wrote:
> 
>>Dave Sherohman wrote:
>>
>>>On Fri, Dec 13, 2002 at 01:02:10PM -0500, David Z Maze wrote:
>>>
>>>
>>>>>foreach my $name (param()) {
>>>>>  my @value = param($name);
>>>>
>>>>Are you sure you don't mean $value here?
>>>
>>>
>>>Not necessarily.  param() returns the first value associated with the
>>>name whan called in scalar context or a list of all values associated
>>>with the name in list context.
>>>
>>>
>>>
>>>>>  print "<p>The field with the NAME attriabute equal to <b>
>>>>>  $name</b> had a VALUE equal to <b>@value</b></p>\n";
>>>>
>>>>...and here?  I'd probably change this loop to something like
>>>>
>>>> foreach my $name (@param) {
>>>>   print "$name: " . param($name) . "\n";
>>>> }
>>>
>>>
>>>foreach my $name (@param) {
>>>  print "$name: " . join ', ', param($name) . "\n";
>>>}
>>>
>>
>>I tried yours , still not work well(only the Thisis cgi  be shown in my 
>>browser)
>>are you guy prety sure it is not httpd's config have problem but my 
>>script program not good enough?  (like perl module loading or config?)
>>------------------------------------------------------------------------
>>
>>fsshl@www:~$ cat /usr/lib/cgi-bin/entrance.cgi
>>#!/usr/bin/perl    -wT
>>use strict;
>>use CGI ':standard';
>>use CGI qw(:standard);
>>
>>my @param=param();
>>
>>print "Content-type: text/html\n\n";
>>print "<html><body>\n";
>>print "This is an example CGI script.\n";
>>
>>foreach my $name (param()) {
>>   my @value = param($name);
>>   print "<p>The field with the NAME attriabute equal to <b>
>>   $name</b> had a VALUE equal to <b>@value</b></p>\n";
>>   }
>>print "</body></html>";
> 
> 
> 
> ---------------------------------------------------------------------
> The official User-To-User support forum of the Apache HTTP Server Project.
> See <URL:http://httpd.apache.org/userslist.html> for more info.
> To unsubscribe, e-mail: users-unsubscribe@httpd.apache.org
>    "   from the digest: users-digest-unsubscribe@httpd.apache.org
> For additional commands, e-mail: users-help@httpd.apache.org
> 
> 
> 


-- 
Sincere Eric
www.linuxspice.com
linux pc for sale


---------------------------------------------------------------------
The official User-To-User support forum of the Apache HTTP Server Project.
See <URL:http://httpd.apache.org/userslist.html> for more info.
To unsubscribe, e-mail: users-unsubscribe@httpd.apache.org
   "   from the digest: users-digest-unsubscribe@httpd.apache.org
For additional commands, e-mail: users-help@httpd.apache.org


Mime
View raw message