cgi perl 页面跳转

#!C:/strawberry/perl/bin/perl.exe

use CGI;

print "Content-type: text/html/n/n";

$url=$ENV{'REQUEST_URI'};

$len=length($url);

$fxxCode = substr $url, 8, 8;

$pos=index($url,'static');

###print "${url}";

###print "${len}";

###print "${pos}";

###print "${fxxCode}";

if (($len==21) and ($pos==1) ){

$rurl = "http://www.lwq.com/product/viewProduct.action?fxxCode=".$fxxCode;

$q = new CGI;

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

}

$t=1;

print "<META HTTP-EQUIV=refresh CONTENT=/"$t;URL=$rurl/">/n";