Hello list.
I'm getting the following error message when compiling the program
listed below ...
Bad name after c' at /test/test1.cgi line 22.
line 22 is ' s/%(..)/pack('c', hex($1))/eg;'
Need help in eliminating this error!
thnx
tony
=========
#!/usr/local/bin/perl -w
use strict;
# Enable HTTP output
print("Content-type: text/html\n\n");
my $url = "nice.cgi?a=b+c+d&x=a+m";
my $x = &decodeURL($url);
print 'x[$x]<br>";
exit;
#-------------------------------------------------------------
# Decode the URL
# &decoded_url = &decodeURL($url);
#-------------------------------------------------------------
sub decodeURL {
$_ = shift;
tr/+/ /;
s/%(..)/pack('c', hex($1))/eg;
return($_);
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
