perl cgi 302錯(cuò)誤 頁(yè)面跳轉(zhuǎn)

zfwslf

1. #!/usr/bin/perl
   
2. use CGI qw(:all);
   
3. $|=1;
   
4. print "Content-type:text/html\n\n";
   
5. my $url = 'http://www.baidu.com'
   
6. print redirect($url) ;
   

復(fù)制代碼

redirect 不能實(shí)現(xiàn)頁(yè)面跳轉(zhuǎn)
error：
Status: 302 Moved Location: http://www.baidu.com


print   "location=http://somewhere.com ";
我也用過(guò) 還是不能 不過(guò)就沒(méi)有報(bào)302錯(cuò)誤

請(qǐng)問(wèn)用perl怎樣實(shí)現(xiàn)頁(yè)面自動(dòng)跳轉(zhuǎn)啊 有可以實(shí)現(xiàn)的方法嗎？

首天

用Location的話前面不能有print "Content-type:text/html\n\n";
也就是說(shuō)print Location是輸出的第一條信息，這種跳轉(zhuǎn)我用過(guò)

zfwslf

回復(fù) 2# 首天


    那能不能把location放在最后 切可以調(diào)整的方法啊  以為我前面有很多代碼要實(shí)現(xiàn)的。。。

首天

我不知道你想要的效果是怎么樣的
如果需要顯示完頁(yè)面，并且要觸發(fā)一個(gè)事件后跳轉(zhuǎn)另一個(gè)頁(yè)面，不考慮安全的話可以使用js來(lái)實(shí)現(xiàn)
<script language="JavaScript" type="text/JavaScript">
window.location='跳轉(zhuǎn)網(wǎng)址
</script>
如果是需要顯示頁(yè)面，定時(shí)跳轉(zhuǎn)，可以使用<meta http-equiv="refresh" content="3; url=跳轉(zhuǎn)網(wǎng)址">
跳轉(zhuǎn)的實(shí)現(xiàn)有很多，可以上baidu，google搜索一下看看