![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
perl cgiでまだまだわからないことだらけなので、まだ質問します・・・
print $q->start_html(-title=>"画面", -BGCOLOR=>'#ffffff'),
$q->header(-charset=>"Shift_JIS"),# Content-type: text/htmlを書き出します
$q->p('<body bgcolor="#ffffff" text="#000000" link="#0000ff" vlink="#ff00ff">'),
$q->p('<FONT COLOR="red">aaa</FONT>'),
$q->hr,
$q->p('<form method="post" action="ppp.cgi">'),
$q->p('<FONT color="blue">【a】</FONT>'),
$q->p('<INPUT TYPE="text" NAME="mmm" VALUE="" SIZE="25" MAXLENGTH="25">'),
$q->p('<FONT color="blue">【b】</FONT>'),
$q->p('<INPUT TYPE="text" NAME="nnn" VALUE="" SIZE="25" MAXLENGTH="25">'
$q->p('<FONT color="blue">【c】</FONT>'),
$q->p('<INPUT TYPE="text" NAME="ttt" VALUE="" SIZE="25" MAXLENGTH="25">'
$q->p('<FONT color="blue">【d】</FONT>'
$q->p('<select name="question" size="1" multiple="multiple">'
$q->p('<option selected="selected" value="aaa">aaa?</option>'),
$q->p('<option selected="selected" value="bbb">bbb</option>'),
$q->p('<option selected="selected" value="ccc">ccc</option>'),
$q->p('</select>'),
$q->p('<FONT color="blue">【e】</FONT>'),
$q->p('<INPUT TYPE="text" NAME="ans" VALUE="" SIZE="25" MAXLENGTH="25">'),
$q->p('<FONT color="blue">【f】</FONT>'),
$q->p('<textarea name="freeans" rows="5" cols="30" value="$initText" wrap="hard">$initText</textarea>'),
#$q->p('<textarea name="freeans" rows="5" cols="30" value=$initText wrap="hard">あいうえお </textarea>'),
$q->p('<input type=submit value="送信">'),
$q->p('</form>'),# 送信データここまで
$q->end_html;
としているのですが、表示のほうが
【a】
テキストボックス入力欄
【b】
テキストボックス入力欄
【c】
テキストボックス入力欄
・・・
と、テキストボックス入力欄の上下に改行が入っていしまいます。
消す方法はございますか?pタグがダメなんでしょうか?
それとContent-Type: text/html; charset=Shift_JIS が最上部に表示されてしまいます。
$q->header(-charset=>"Shift_JIS"),# Content-type: text/htmlを書き出します
の行が原因だということはわかるのですが・・・・変更方法がわからないです。
教えて頂きたいです。よろしくお願いします。
No.1ベストアンサー
- 回答日時:
一行ずつ$q->p()してるので、
<p><FONT color="blue">【a】</FONT></p>
<p><INPUT TYPE="text" NAME="mmm" VALUE="" SIZE="25" MAXLENGTH="25"></p>
になっているのでしょう。pタグは分かりますよね?
$q->p()は消して、こっちの方がラクかも。
# EOF(任意の文字)で囲まれた範囲を$bodyに代入する
my $body = <<EOF;
<body>
<font...
.
.
.
EOF # ココ、先頭にスペース入れたりすると動かないので注意
print $body;
CGIのモジュールはパラメータ受け取ったりするのは便利ですが、
ちょっとしたHTML書くだけなら
#!/usr/bin/env perl
my $msg = "<div>Hello, World!</div>";
print "Content-type: text/html\n\n";
print $msg;
これでも。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
- HTML・CSS アコーディオンメニューが思うように動作しません。 1 2023/08/20 16:48
- PHP if(preg_match("/[^0-9]/",$gu_d)){意味を教えてください。 1 2022/05/06 05:37
- CGI htmlからパラメータで、cgiに渡したい。 1 2023/02/06 16:15
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- JavaScript 以前の質問だと、どの条件でも配列が表示されてしまいます。 1 2022/07/09 11:40
- PHP 入力した部分を表示させたまま(保持)するにはどうすれば良いでしょうか? 1 2023/01/25 11:14
- HTML・CSS 書籍を見つつサイト造りの練習をしているのですが、見た目が一致しません 2 2022/11/28 15:00
- HTML・CSS ただいま勉強始めたての初心者です。フォームを縦並べにしたいです。 2 2022/11/20 17:18
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テキストファイルで提出とは?
-
bashスクリプト
-
perlのrequireの動き方について...
-
ファイルをディレクトリ分配の...
-
アルファベットに付いて質問し...
-
#!/usr/bin/perlで書きだしたCG...
-
Perlのエラーについてご教授く...
-
perlのflock関数でロックをかけ...
-
AI sisterとは、偽物の人ですか?
-
ファイルアイコンの左下に緑の□...
-
perlプログラミング 空白行削除
-
perlでリテラル値はメモリにど...
-
perlで2次元配列をサブルーチ...
-
Perlで時間の計算
-
perlについて
-
perlの構文でカンマの意味が分...
-
perlについての質問
-
perlのプログラミング 部分入れ...
-
ペプシコーラとコカ・コーラとD...
-
perlをバージョンアップしたら...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
formで特定のinputを送信しない...
-
子windowsからsubmit()後にclos...
-
CGIプログラムで得た結果を一行...
-
Perlで分数を保持したい
-
無駄な改行を何とかしたいです
-
ホームページビルダーのメール...
-
Perl 初心者です。
-
javascriptでCGIを実行するには
-
Win32::IE::Mechanizeで、texta...
-
javascriptでhtmlのsubmitを実...
-
Infoseek地図の住所検索をホー...
-
elsif フォーム内のカーソルを...
-
テキスト入力後、エンターを押...
-
Application.ScreenUpdating = ...
-
JSONで文字列が長い時
-
文字の横にプルダウンを表示さ...
-
実行時エラー 3020の対策
-
セレクトメニューで2つの項目...
-
16進の10進変換について
-
メモリをアドレスを直接指定し...
おすすめ情報