Re: How to pass a parameter between cgi's?

in reply to How to pass a parameter between cgi's?

In CGI2.CGI, where are you defining $query? It looks to me as if you cut'n'pasted some code from someone else without a full understanding of what it's doing.

Try either of the following approaches:

#!/usr/local/bin/perl
use CGI qw(:all);
print header;
print "in cgi2.cgi<BR>";
$i = param('i');
print $i;
[download]

#!/usr/local/bin/perl
use CGI;
$query = CGI->new;
print $query->header;
print "in cgi2.cgi<BR>";
$i = $query->param('i');
print $i;
[download]

Update: $CGI -> CGI in the second code example.

My criteria for good software:

Does it work?
Can someone else come in, make a change, and be reasonably certain no bugs were introduced?

Comment on Re: How to pass a parameter between cgi's? Select or Download Code

Replies are listed 'Best First'.
Re^2: How to pass a parameter between cgi's? by JaredF (Initiate) on Oct 24, 2005 at 02:28 UTC
Dragonchild -- Code sample #1 works like a charm. Thank you. In response to your question -- "In CGI2.CGI, where are you defining $query." -- the answer is: Nowhere in the example, but down below in the actual source code. My mistake. My grasp of OO perl and of CGI are, um, weak enough to cause trouble. Thanks for getting me out of it to complete a rather long piece of code. -- Jared	[reply]

In Section Seekers of Perl Wisdom