I'm using the following, thanks to the input of some on this list:
foreach $KEY ($query->param())
{
$VARNAME = uc($KEY);
@$VARNAME = $query->param($KEY);
$$VARNAME = join(",",@$VARNAME);
}
This works fine except in one case I have come across. If $KEY begins with
1 through 9, I get
Modification of a read-only value attempted at the $$VARNAME = join() line
If $KEY begins with a zero or any other character (I really didn't try ALL
others), it works fine.
Anything I can do about this?
Steve
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
