Re: [users@httpd] Re: what is perl 's syntax

eric lin Fri, 13 Dec 2002 19:03:17 -0800


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 "\n";
print "$_ has value(s) => ";
print param($_);
print "\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 "The field with the NAME attriabute equal to 
 $name had a VALUE equal to @value\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 "The field with the NAME attriabute equal to 
 $name had a VALUE equal to @value\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 "The field with the NAME attriabute equal to 
$name had a VALUE equal to @value\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: [EMAIL PROTECTED]
 " from the digest: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

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

--
To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Re: [users@httpd] Re: what is perl 's syntax

Reply via email to