sub encode_url($){
  my $u=$_[0];
  $u =~ s/%([a-fA-F0-9]{2})/chr(hex($1))/ge;
  return $u;
}

----- Original Message -----
From: "Thomas_M" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Thursday, September 20, 2001 3:56 PM
Subject: RE: Decoding a URL in Perl


> [EMAIL PROTECTED] wrote:
>
> > I am sending a string as a java encoded URL to a perl script.
>
> No such thing. You're most likely talking about an URL-Encoded string.
>
> > I have to decode the string in the perl script. Is there any way i can
> > decode the string.
>
> Of course. The CGI module (which you will most likely be using) does this
> automatically.
>
>
> --
> Mark Thomas                    [EMAIL PROTECTED]
> Sr. Internet Architect         User Technology Associates, Inc.
>
> $_=q;KvtuyboopuifeyQQfeemyibdlfee;; y.e.s. ;y+B-x+A-w+s; ;y;y; ;;print;;
>
>
> _______________________________________________
> Perl-Win32-Admin mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
>

_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin

Reply via email to