use
my
example:
my ($key, $value)=split(/=/,$key_value);
www.perldoc.com and look up 'my'
----- Original Message -----
From: "Guillaume Denizot" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 17, 2001 6:17 PM
Subject: package
Hello,
When I execute: "perl my_cgi_lib.m",
I have this problem:
"Global symbol "$key" requires explicit package name at
/usr/lib/perl5/5.6.0/my_cgi_lib.pm line 34.
Global symbol "$key" requires explicit package name at
/usr/lib/perl5/5.6.0/my_cgi_lib.pm line 38.
Global symbol "$key" requires explicit package name at
/usr/lib/perl5/5.6.0/my_cgi_lib.pm line 40.
Global symbol "$key" requires explicit package name at
/usr/lib/perl5/5.6.0/my_cgi_lib.pm line 44."
my_cgi_lib is:
"34 ($key, $value)=split(/=/,$key_value);
35 $value=~tr/+/ /;
36 # Decodage des caracteres speciaux
37 $value=~ s/%(..)/pack("c",hex($1))/eg;
38 if(defined($formdat{$key}))
39 {
40 $formdat{$key} .="\0" . $value;
}
else
{
44 $formdat{$key}=$value;
}"
What's the problem?
_________________________________________________________
Le journal des abonnés Caramail - http://www.carazine.com
----------------------------------------------------------------------------
----
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
