Description :
Encode et décode une chaine de caractères
Portion de code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
sub main::urlEncode {
my ($string) = @_;
$string =~ s/(\W)/"%" . unpack("H2", $1)/ge;
#$string# =~ tr/.//;
return $string;
}
print '<a href="submit.cgi?ReqCode=',urlEncode('R&D'),'">';
sub main::urlDecode {
my ($string) = @_;
$string =~ tr/+/ /;
$string =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
return $string;
}
|
|
Informations rapides
