締切済み

CGIの動作環境に関して

2007/03/31 17:33

教えて下さい。私の作成したapacheの環境では、　 print "Content-type: text/plain\n\n"; print "Hello Perl !"; この表記ではダウンロードのポップアップが表示されてしまい、調べたところ、 print "Content-type: text/html\n\n"; print "<html><h1>Hello Perl !</h1>"; のようにhtml形式にすれば正しく表示されるようになりました。しかし、自分で作成しておきながら、html形式というものが良くわかりません。仮に、以下のような"行動予定表"のようなものを表示させたい場合、どのように"html形式"で記述すれば良いでしょうか。。。。 # 行動予定表の表示 print "Content-type: text/html\n\n"; print qq! <HTML> <HEAD> <TITLE>行動予定表</TITLE> <META Http-Equiv="Content-Type" Content="text/html;charset=shift-jis"> </HEAD> <BODY link="#0000ff" vlink="#0000ff" alink="#0000ff"> <CENTER> <TABLE BORDER="0" WIDTH="90%"> <TD WIDTH="20%"> <IMG src="../../image/mrd3.gif" width="80" height="27" border="0">　 </TD> <TD WIDTH="60%" ALIGN="center"> 行動予定表 </TD> <TD WIDTH="20%" ALIGN="right"> $date </TD> </TABLE> $error <TABLE BORDER="1" WIDTH="650" CELLPADDING="2" CELLSPACING="1"> <TR ALIGN="center"> <TD NOWRAP WIDTH="150" BGCOLOR="#DDDDDD"> 名前 </TD> <TD NOWRAP WIDTH="300" BGCOLOR="#DDDDDD"> 行　　先 </TD> <TD NOWRAP WIDTH="150" BGCOLOR="#DDDDDD"> 帰社時間 </TD> </TR> !; for($loop = 1;$loop <= $#LIST_NAME;$loop++) { $name = qq!$LIST_NAME[$loop]!; print qq! <TR> <TD WIDTH="2%" VALIGN="middle" NOWRAP> <A HREF="yotei_d1.cgi?edit=$loop">$name</A> </TD> <TD WIDTH="49%" VALIGN="top"> $LIST_NOTE[$loop]{'AM'}　 </TD> <TD WIDTH="49%" VALIGN="top"> $LIST_NOTE[$loop]{'PM'}　 </TD> </TR> !; } print qq! </TABLE> </CENTER> <CENTER> <TABLE BORDER="0" WIDTH="750" CELLPADDING="0" CELLSPACING="0"> </TABLE> </CENTER> <HR> <CENTER> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0"> <TR> <TD COLSPAN="3"> ご利用のヒント </TD> </TR> <TR> </TR> <TR> <TD WIDTH="5%">　</TD> <TD WIDTH="15%"> ■名前 </TD> <TD WIDTH="80%"> 　編集したい名前を押すと、登録画面が表示されます。 </TD> </TR> </TABLE> </CENTER> <CENTER> <A HREF="http://999999">イントラネットトップページへ </A> </CENTER> </BODY> </HTML> !; 宜しくお願いします。

SANA_999
お礼率12% (16/132)

CGI
回答数2
ありがとう数1

みんなの回答 （2）
専門家の回答

みんなの回答

leap_day
ベストアンサー率60% (338/561)

2007/04/01 04:42 回答No.2

こんにちは jcode.plとsub decode{ }については前回の質問を見てください $dateと$errorはどんな値が入っているのか分からないのですが・・・ print <<"EOM"; の前に $date = "*****"; $error = "******"; のようにして文字(？)を入れてくださいループ処理の部分は何がしたいのかよく分からなかったので省略しています多分データファイルから名前のリストを読み込んで『名前(リンク付き)、行き先、帰社時間』のリストをテーブル表示したいのだと思うのですが・・・あとTAGは小文字で書いたほうがよいかもしれません(コピペして加工したので大文字のままです) #! c:/perl/bin/perl require './jcode.pl'; &decode; &html; sub html { print "Content-type: text/html\n\n"; print <<"EOM"; <HTML> <HEAD> <TITLE>行動予\定表\</TITLE> <META Http-Equiv="Content-Type" Content="text/html;charset=shift-jis"> </HEAD> <BODY link="#0000ff" vlink="#0000ff" alink="#0000ff"> <CENTER> <TABLE BORDER="0" WIDTH="90%"> <TD WIDTH="20%"> <IMG src="../../image/mrd3.gif" width="80" height="27" border="0">　 </TD> <TD WIDTH="60%" ALIGN="center"> 行動予\定表\ </TD> <TD WIDTH="20%" ALIGN="right"> $date </TD> </TABLE> $error <TABLE BORDER="1" WIDTH="650" CELLPADDING="2" CELLSPACING="1"> <TR ALIGN="center"> <TD WIDTH="150" BGCOLOR="#DDDDDD"> 名前 </TD> <TD WIDTH="300" BGCOLOR="#DDDDDD"> 行　　先 </TD> <TD WIDTH="150" BGCOLOR="#DDDDDD"> 帰社時間 </TD> </TR> EOM print <<"EOM"; <TR> <TD colspan="4"> ここの処理はよく分からないです？？ </TD> </TR> EOM print <<"EOM"; </TABLE> <HR> ご利用のヒント ■名前 　編集したい名前を押すと、登録画面が表\示されます。 <A HREF="http://999999">イントラネットトップページへ </A> </CENTER> </BODY> </HTML> EOM exit; } sub decode { # 前回の質問の内容をコピペしてください }