Hi guys!
Thanks for your suggestions. I never read of variable declaration like
our $variable in any of my books before. I also got good information
through the Bob Showalter gave me:
http://perl.apache.org/docs/general/perl_reference/perl_reference.html#m
y
Now my codes looks like. It works.
###### #################
<html>
<head>
<title>My menu </title>
</head>
<body>
<a href="../cgi-perl/environ.pl?action=register">Register as a new
user</a>
<a href="../cgi-perl/environ.pl?action=upload">Upload a file</a> </body>
</html>
##### My Perl codes now looks similar to one below ###########
#!/usr/bin/perl -w
use strict;
use CGI;
our $q;
local $q =new CGI;
if ($q->param('action') eq "upload"){
exeUpload();
}
if ($q->param('action') eq "register"){
exeRegister();
}
##### Subroutines ###############
sub exeUpload{
my @forwarded = @_;
print $q->header();
print $q->start_html();
#Upload form comes here!
print $q->end_html;
}
sub exeRegister{
my @forwarded = @_;
print $q->header();
print $q->start_html();
#Registration form comes here!
print $q->end_html;
}
and etc. etc.
###########################################################
-----Ursprüngliche Nachricht-----
Von: Bob Showalter [mailto:[EMAIL PROTECTED]
Gesendet: Donnerstag, 17. Juli 2003 14:07
An: 'B. Fongo'; [EMAIL PROTECTED]
Betreff: RE: Variable "$q" will not stay shared at
B. Fongo wrote:
> Hello,
>
> I'm working on my first Perl project. Most of my cgi programs work ok,
> but a look at the apache error log reveals this warning which is
> clear to me:
>
> Variable "$xy" will not stay shared at
> /data/www/cgi-perl/envir.pl line
> 19. [Wed Jul 16 11:44:57 2003] [error] Undefined subroutine
> &Apache::ROOT::cgi_2dperl::environ_2epl::start_html called at
> /data/www/cgi- perl/envir.pl line 20.
>
> For instance: This code will trigger such warning.
>
> #!/usr/bin/perl -w
> use strict;
> use CGI;
> my $xy = new CGI;
> print $xy->header();
> print $xy->start_html();
> print $xy->p(" Perl-CGI");
> print $xy->end_html;
>
> #########################
>
> I tried several alternatives, like invoking print() only once at
> header. But I can't feature out what that warning actually means. My
> apache is configure with mod_perl.
The problem is caused by the way Apache::Registry handles your script.
For the gory details see:
<http://perl.apache.org/docs/general/perl_reference/perl_reference.html#
my__
_Scoped_Variable_in_Nested_Subroutines>
The solution I always use is to change all file-scoped lexicals to
globals
and protect them with "local" so you get fresh copies with each request.
Instead of:
my $xy = new CGI;
Do:
our $xy;
local $xy = new CGI;
>
> Besides that, my project will consist of 1 main Perl script and
> several modules in a subdirectory which will be performing various
> functions. Now; what I intend to do is always send the main script a
> parameter through the URL, which will then indicate which of the
> modules should be called. Each of my modules will contains
> subroutines for various functions: My question is: How do I send a
> parameter to my script through a link on my web page? I tried
> something like this, but did not work.
What did it do?
>
> <a href="cgi-perl/mainprogram.pl?action=cup_of_coffee">A cup of
> coffee </a>
That looks OK, except that the URL is relative, so you need to make
sure you know where you are.
>
> What I'm trying to do here is to send the string "cup_of_coffee" to
> the main program.
>
> The main program will have something like this to store the parameter
> from the url: @forwarded_by_url = ??? # Am not sure here.
Assuming $xy is the CGI object:
$action = $xy->param('action'); # sets $action to 'cup_of_coffee'
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
