Rewriting URLs with Perl

[Extension]

Hello,

I would like to know if there's a simple way to rewrite URLs (aka clean URLs)in perl:
from

http://server.com/script.pl?q=article&id=3434

to

http://server.com/article/3434

I would like to know if it's possible to do this at a script level only meaning I wouldn't have to modify any web server settings.

I'm running Perl on a Win2003 server.

Any input would be really appreciated.

Thanks

 

[Kirsle]

There's something you can do that's sorta like that...

http://server.com/article.pl/3434

or the syntax goes "whatever.cgi/any-data-you-want-here", so it looks like a URL path except there's a file extension in there.

The data after the / can be retrieved with $ENV{PATH_INFO}. For example:

(if env.cgi is a simple script that dumps out %ENV):
env.cgi/helloworld/1234/5678
$ENV{PATH_INFO} = "/helloworld/1234/5678"

That's likely the closest you can get without changing the server configuration. If this was an Apache server you could use mod_rewrite in a .htaccess file that you control so you don't need to bug your sysadmins and this kinda stuff would be real easy:

<IfModule mod_rewrite.c>
   RewriteEngine On
   RewriteBase /
   RewriteCond %{REQUEST_FILENAME} !-f
   RewriteCond %{REQUEST_FILENAME} !-d
   RewriteRule . /script.pl [L]
</IfModule>

and then script.pl would be able to get $ENV{REQUEST_URI} to find the path actually requested of the server.

If you're running on an IIS server though, I'm not sure right offhand how IIS does things, or if they have a .htaccess-like system that lets sites override server directives themselves. But you didn't specify IIS or Apache, so if it's Apache we're in luck.

-------------
Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'