On 7/6/07, CraigT <suppressed> wrote:
In this regard though, I would like to ask what you recommend to pass back several paramters from a sub
The usual way to do it is to accept a list of return values: my ($foo, $bar) = sub_call($param);
I'd like to focus on this problem here because I don't feel like I have much control between the anchor click and the retrival of the paramters in the invoked module.
You don't have any control of that. That's handled by the web browser and your operating system. We just assume that part works. I don't think the problem is there.
I haven't shown the code because I'm not quite sure how.
The best thing to do is to try to make a small example program that shows the problem. Sometimes, just by trying to make a small example of it, you fix the problem.
The first module presented is m3.cgi.
This code has some problems. This isn't a general Perl help mailing list, but I'll point out a couple of quick things. I also recommend that you buy a copy of "Perl Best Practices" and join http://perlmonks.org/ in order to have a community of people to help you with general Perl questions.
use strict;
Use warnings too.
(my $ai, my $row, my $r, my $col, my $c, my $cpos, my $blankx, my $lstr, my $xlnklen, my $zzx, my $firstcpos) = "";
This kind of initialization isn't necessary. It's better to declare your variables right before you use them, to keep the scope as small as possible. The way you're initializing them here won't work anyway, since you only have one empty string, and a list of variables on the left.
# Get document root and server name.
foreach $key (sort keys(%ENV)) {
if ($key eq 'DOCUMENT_ROOT') {
$docroot = $ENV{$key};
}
if ($key eq 'SERVER_NAME') {
$servname = $ENV{$key};
}
}
That should just be
$docroot = $ENV{DOCUMENT_ROOT};
$servername = $ENV{SERVER_NAME};
open(ORG,"<$orgidfn"); flock(ORG,LOCK_SH); @glines = <ORG>; close(ORG);
Any time you open, flock, or close, you must check for errors with the usual "or die" construct.
print "Content-type: text/html\n\n";
Use $page->header() instead.
print "<HTML><HEAD><TITLE>$gov Efforts</TITLE>
A templating system might make this HTML easier for you to deal with. You could start with something simple, like Text::Template.
# Get the paramters from the calling program - shoidls.cgi.
$govlevel = $page->param("str");
I don't see anything wrong with this, or with the call where you created $page, above. Put in a "warn $govlevel" there and see if it's what you think it should be. If it is, manually change the value of str in the URL in your browser and try it again, checking to see if the variable changes too.
If I preload (compile) my application programs into the Apache registry as I hope to, when I execute under CGI I'm thinking those copies will be used if I have the correct handler (like the one below) in my Apache httpd?
Well, you won't be executing under CGI, but if you configure Registry to handle your URLs and you preload scripts for those URLs, they will be used. Your configuration is not correct though. Apache::Registry is mod_perl 1. Maybe you meant to say ModPerl::Registry?
I haven't found a package for Apache::RegistryLoader yet and may have to get it form CPAN.
No, ModPerl::RegistryLoader comes with mod_perl 2.
And when I transition to PerlRun and mod_perl, my understanding is that I should preload the application programs into the ModPerl::Registry?
You don't really have to preload anything. It may save you some memory, but it's not important at this point. Wait until your code is working to worry about things like that.
If I preload the Perl modules I'm using, do I still need to 'Use' those modules in my application programs?
You don't technically have to, but it's a good practice to do it anyway, to make it clear which modules depend on which others and make it easier to work with later. - Perrin
Mail converted by mhonarc 2.6.15
This archive provided courtesy of JSW4.NET, Internet Hosting Services for Small Business.