I currently use the following code to populate query string pairs into 
variable names.

use CGI;
my $query = new CGI;

foreach $KEY ($query->param()) {
         $VARNAME = \(uc($KEY));
         $$VARNAME = $query->param($KEY);
         $$VARNAME = join(",",@$VARNAME); #Enables us to work with multiple 
values items such as <select>
         print "$VARNAME is $$VARNAME<BR>\n";
}

however, I understand it is better/safer to write code with "use strict;"

I guess that I would have to add:

my ($KEY, $VARNAME);

to the above, but I'm not quite sure how to tidy up the rest.  Could 
somebody possibly show me how to tidy the code up and maybe point me in the 
direction of some instructions/methods of how to program when using strict.

I would appreciate some examples of common pitfalls when working with 
"strict" and workarounds.  I have looked at the documentation on "strict" 
that comes with Active Perl, however, I didn't find it all that useful, or 
the examples all that clear.

Any help would be gratefully appreciated.

TIA

Roland


-- 
The information contained within this e-mail sent by Cradley Print Ltd. is
confidential and is intended for the named recipient only. If you are not
the intended recipient please notify us by telephone immediately on 01384
414100 (UK)or +(44)1384 414100 (International) or return it to us by e-mail
quoting the name of the sender and the addressee. Please then delete it from
your system.

Encryption and Viruses
==================
Please note that this e-mail and any attachments have not been encrypted.
They may therefore be liable to be compromised. Please also note that it is
your responsibility to scan this e-mail and any attachments for viruses.
Viruses and compromises of security are inherent risks in relation to
e-mail.

We do not, to the extent permitted by law, accept any liability (whether in
contract, negligence or otherwise) for any virus infection and/or external
compromise of security and/or confidentiality in relation to transmissions
sent by e-mail.

Contracts
========
Please note, that contracts may NOT be concluded on behalf of Cradley Print 
Ltd by e-mail, but contracts on behalf of our clients may be concluded by 
e-mail.
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web

Reply via email to