Split function 2

[Guest_imported]

If there is a query string like this:

http://www.abc.com/def.cgi?/12345

How to code def.cgi to split the "/" from "12345" AND redirect the user to

http://www.abc.com/xyz.cgi?12345

split(///,$ENV{'QUERY_STRING'}) doesn't seem to work. Maybe the server doesn't understand what "///" is.

If possible please give the complete code. Thanks!

 

[latch]

This is what I cam up with...HTH




#===============================================
# def.cgi
#===============================================
#!/usr/bin/perl

use CGI;

$ENV{"QUERY_STRING"} =~ /\d+$/;
$matched=$&;
$query=new CGI;

print $query->redirect("

http://www.xyz.com/def.cgi?$matched");

regards
C

 

[toptalent]

Thank you so much!

But when I tried to excute the script on my server it returened "Internal Server Error" and I'm sure the file permission is right.

Could there be any problem...

 

[latch]

The Server Error Log will have additional details reg the error. That could help us debug .



regards
C

 

[toptalent]

Thank you! I got the following information in the server error log:

[Mon Sep 24 21:19:29 2001] [error] (8)Exec format error: exec of /

http://www/cgi-bin/cgitest.cgi

failed
[Mon Sep 24 21:19:29 2001] [error] [client 12.156.33.205] Premature end of script headers: /

http://www/cgi-bin/cgitest.cgi

What seems to be the problem please?

 

[latch]

Make sure the scripts have the right execute permissions and check if the headers for the scripts are in place. Better still...post the scripts .


regards
C

 

[Grahf]

Or maybe the perl location is #!/usr/local/bin/perl

 

[toptalent]

Thank you for all your help! It finally worked!

#!/usr/bin/perl must be in the first line.