Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

...
use strict;

print $q->header, $q->url(-absolute=>1, -path=>1, -query=>1);
  2. or download this
    /cgi-bin/temp/self.cgi?file_url=%2F%2Ftestdoc_dir%2Ft1.txt&file_path=%
+2Fu02%2Fdata%2Fdoc%2Ftest%2Ft1.txt
  3. or download this
    print $q->url(-absolute=>1, -path=>1), '?', $ENV{QUERY_STRING};
  4. or download this
    /cgi-bin/temp/self.cgi?file_url=//testdoc_dir/t1.txt&file_path=/u02/da
+ta/doc/test/t1.txt&43368