Re: How to get current URL with Query String

Another.

use strictures;
use CGI ":standard";
use URI;

my $requested = URI->new( CGI::url() );
$requested->query( $ENV{QUERY_STRING} || $ENV{REDIRECT_QUERY_STRING} )
    if url_param();

print header(),
    start_html(),
    h1("OHAIURI"),
    blockquote($requested),
    end_html();
[download]

Comment on Re: How to get current URL with Query String Download Code

Replies are listed 'Best First'.
Re^2: How to get current URL with Query String by thewebsi (Scribe) on May 10, 2013 at 20:06 UTC
Beauty. Arnon Weinberg Back2Front - The Web Site People	[reply]
Re^3: How to get current URL with Query String by techdex (Initiate) on Feb 04, 2014 at 06:26 UTC
I wanted to quickly input here. I've been using this, especially where I have apps that run on both http:// and https:// In my case where I use OOP it's usually a subroutine in the main package, but this works just as well, calling the $page_url variable. Some smart concatenation, no additional modules, strictly native... `my $page_url = 'http'; if ($ENV{HTTPS} = "on") { $page_url .= "s"; } $page_url .= "://"; if ($ENV{SERVER_PORT} != "80") { $page_url .= $ENV{SERVER_NAME}.":".$ENVSERVER_PORT}.$ENV{REQUEST_U +RI}; } else { $page_url .= $ENV{SERVER_NAME}.$ENV{REQUEST_URI}; }` [download] what do you think?	[reply] [d/l]
Re^4: How to get current URL with Query String by Your Mother (Archbishop) on Feb 04, 2014 at 15:30 UTC
`if ($ENV{HTTPS} = "on") {` Already shows a problem with this sort of approach (copying and pasting the “same” snippet around). I don’t doubt you have it right somewhere but that above is a bug (you need `eq` and you should probably also normalize case with `lc`). It will always say the URL is https as is. String concatenation is, to me, code smell. The “no additional modules” shtick can be paraphrased to: no help from experts who have been solving and testing this exact problem against edge cases for 20 years and will continue to do so as the standards are updated.	[reply] [d/l] [select]