perl如何內嵌html

問：我現在有一個html的網頁代碼，要將其改為perl程序，如果只是單純在其第一行加上"#!../perl/bin/perl",并將文件后綴名改為.cgi，會出現錯誤提示"You don't have permission to aclearcase/" target="_blank" >ccess /test/index.cgi on this server."。換句話說:后綴名為.cgi的perl里如何包含html代碼？

答：sub html_html

{

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

print <
#這里輸出html

eof

exit;

}

問：加了以后果然可以，但里面的圖片"resource/Top.gif"卻不能顯示，圖片路徑絕對是正確的,如：resource/top.gif

答：用相對路徑，最好做一個安裝文件setup.cgi

在你的這個文件中：

require "setup.cgi";

然后這樣調用：lt;img src="$gif/top.gif">

setup.cgi文件中有這一行：

$gif='http://your url/resource';  #圖片的URL路徑，注意是單引號而不是雙引號。

這樣用相對路徑應該可以了。