Convert a Decoded UIRL to an Encoded

Hi All,

I want a script that decodes an URL for me,

I have never written a perl script before (Only PHP an VB6)

This code snippet have I found:
sub URLDecode {
my $theURL = $_[0];
$theURL =~ tr/+/ /;
$theURL =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
$theURL =~ s///g;
return $theURL;
}
http://glennf.com/writing/hexadecimal.url.encoding.html

How can I get this to work?

Many thanks in advance!

Re: Convert a Decoded UIRL to an Encoded

homebunny wrote:
> I want a script that decodes an URL for me,
>
> I have never written a perl script before (Only PHP an VB6)
>
> This code snippet have I found:
> sub URLDecode {
> my $theURL = $_[0];
> $theURL =~ tr/+/ /;
> $theURL =~ s/%([a-fA-F0-9]{2,2})/chr(hex($1))/eg;
> $theURL =~ s///g;
> return $theURL;
> }
> http://glennf.com/writing/hexadecimal.url.encoding.html
>
> How can I get this to work?

By using that function in a Perl program, perhaps?

But you do of course not need Perl to decode a URL. If you know PHP, why
don't you stick to it?

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Re: Convert a Decoded UIRL to an Encoded

Hello Gunnar,

You are right, I was thinking on perl.
The reasing is that i'm expecting a lot of hits on this redirect script (daily
>10000), and sometime ago i have read somewhere that perl has a better performance
then php (and less server load), so i thought maybe we can do this in perl
and learn something new ... But it is harder then I thought ;-)

What would be the best option to go ahead?

Many thanks,


> Gunnarwrote:
>
> By using that function in a Perl program, perhaps?
>
> But you do of course not need Perl to decode a URL. If you know PHP,
> why don't you stick to it?
>

Re: Convert a Decoded UIRL to an Encoded

homebunny wrote:
> You are right, I was thinking on perl.
> The reasing is that i'm expecting a lot of hits on this redirect script
> (daily > 10000), and sometime ago i have read somewhere that perl has a better
> performance then php (and less server load), so i thought maybe we can do this in
> perl and learn something new ...

Learning a new programming language for such a trivial thing, just
because you "read somewhere" about differences in performance, seems to
be overkill.

> But it is harder then I thought ;-)

Learning Perl isn't hard, and it's fun, too.

http://learn.perl.org/

> What would be the best option to go ahead?

Learn Perl if you want to learn Perl.

Otherwise, stick to the programming languages you know. Which language
you use will not make a big difference to your server even if it's
10,000 hits.

--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl

Re: Convert a Decoded UIRL to an Encoded

Hello Gunnar,

>>
> Learning Perl isn't hard, and it's fun, too.
>
> http://learn.perl.org/
>

I love it already, it wasn't that hard, luckily i founded some code examples
;-)

http://glennf.com/writing/hexadecimal.url.encoding.html
http://www.webreference.com/perl/tutorial/7/index.html

Many thanks !!


BTW, This works perfect for me:

#!/usr/bin/perl -w
# redirect.pl - redirects a browser to the URL contained in QUERY_STRING
# by Jonathan Eisenzopf. v1.0 19990818
# Copyright (c) 1999 Jupitermedia Corp. All Rights Reserved.
# See http://www.webreference.com/perl for more information
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.

#
# Downloaded at : http://www.webreference.com/perl/tutorial/7/index.html
#
# Modified By Jimmy Kerckhofs - Oct 2005
#
# Removed: HTTP referer, restriction on referer
# Added: Decode URL as Output
# http://glennf.com/writing/hexadecimal.url.encoding.html
#

use strict;
use CGI;
use CGI::Carp;
use URI;

# MAIN
# my $q = CGI->new;
my $q = new CGI;

# print error if QUERY_STRING is empty
&error("Must specify URL") unless defined $q->keywords;

# Convert URL
&URLDecode($q->keywords);

# redirect
print $q->redirect($q->keywords);

# SUBROUTINES
sub error {
my $message = shift;
print $q->header;
print "

$message

Re: Convert a Decoded UIRL to an Encoded

homebunny wrote:
> BTW, This works perfect for me:
>
> #!/usr/bin/perl -w
> # redirect.pl - redirects a browser to the URL contained in QUERY_STRING
> # by Jonathan Eisenzopf. v1.0 19990818
> # Copyright (c) 1999 Jupitermedia Corp. All Rights Reserved.
> # See http://www.webreference.com/perl for more information
> #
> # This program is free software; you can redistribute it and/or modify
> # it under the terms of the GNU General Public License as published by
> # the Free Software Foundation; either version 2 of the License, or
> # (at your option) any later version.
> # # Downloaded at : http://www.webreference.com/perl/tutorial/7/index.html
> # # Modified By Jimmy Kerckhofs - Oct 2005
> # # Removed: HTTP referer, restriction on referer
> # Added: Decode URL as Output
> # http://glennf.com/writing/hexadecimal.url.encoding.html
> #
> use strict;
> use CGI;
> use CGI::Carp;
> use URI;
>
> # MAIN
> # my $q = CGI->new;
> my $q = new CGI;
>
> # print error if QUERY_STRING is empty
> &error("Must specify URL") unless defined $q->keywords;
>
> # Convert URL
> &URLDecode($q->keywords);
>
> # redirect
> print $q->redirect($q->keywords);
>
> # SUBROUTINES
> sub error {
> my $message = shift;
> print $q->header;
> print "

$message