CGI.pmのヘッダー部分のHTMLタグの書き出し順序は制御できないの

2010/04/16 14:13

このQ&Aのポイント

CGI.pmのヘッダー部分のHTMLタグの書き出し順序は制御できないのですか？HTML書出しをテストしていますが、プログラムソース内の-title=>''の記述位置を変えても<title></title>タグが<head>タグ直下にきます。また-title=>''をコメントアウトしても<title>Untitled Document</title>と書き出されます。
CGI.pmのヘッダー部分のHTMLタグの書き出し順序は制御できないのですか？HTML書出しをテストしていますが、プログラムソース内の-title=>''の記述位置を変えても<title></title>タグが<head>タグ直下にきます。また-title=>''をコメントアウトしても<title>Untitled Document</title>と書き出されます。
CGI.pmのヘッダー部分のHTMLタグの書き出し順序は制御できないのですか？HTML書出しをテストしていますが、プログラムソース内の-title=>''の記述位置を変えても<title></title>タグが<head>タグ直下にきます。また-title=>''をコメントアウトしても<title>Untitled Document</title>と書き出されます。

perlerz10
お礼率81% (36/44)

Perl
回答数3
ありがとう数16

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

質問者が選んだベストアンサー

ベストアンサー

kumoz
ベストアンサー率64% (120/185)

2010/04/17 20:11 回答No.3

私の回答は CGI.pm をカスタマイズするという方法ではなく、プログラム内で実行するコードの１例です。 $q->start_html(...) が返す戻り値は、<title> の後に <meta> がくる単なる文字列です。この文字列を直接出力しているのではなく、プログラムの中でいったん変数に格納して、<title> と <meta> の順番を入れ替えて出力しているだけです。モジュールを使う場合は、ドキュメントを読んで仕様に合わせる必要があります。モジュールの仕様が自分に合わない場合は、ヒアドキュメントなどを使って HTML をベタに書くのも１方法だと思います。 print <<HTML Content-type: text/html <html><head> <meta http_equiv='Content-Type' content="text/html; charset=UTF-8'> <title>new set title</title> ... </html> HTML

質問者

お礼 2010/04/17 22:33

ありがとうございます。教えていただいた「戻り値を編集加工する」方法でやってみようと思います。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

kumoz
ベストアンサー率64% (120/185)

2010/04/17 08:55 回答No.2

スラッシュをエスケープするのを忘れていました。訂正します。 my $start_html = $q->start_html(...); $start_html =~ s/(<title>.*?<\/title>.*?)(<meta[^>]*UTF-8[^>]*>)/$2$1/si; # \ を追加 print $start_html;

質問者

お礼 2010/04/17 16:12

ありがとうございます。私の環境がいわゆるレンタルサーバなので上位のCGI.pmを直接カスタムすることができません。となると自前libにおいたCGI.pmをカスタムしないといけないですね。しかし、デフォルト状態でtitle表示を消すことができないとなると、CGI.pmの利用を再検討しないといけなくなります・・・。 CGI.pmは様々な状況変化に合わせた柔軟なHTML出力機能を持ったモジュールだと考えないほうがよいのでしょうか？

ログインすると、全ての回答が全文表示されます。

kumoz
ベストアンサー率64% (120/185)

2010/04/17 07:10 回答No.1

my(@result); ... push(@result, "<HTML><HEAD><TITLE>$title</TITLE>"); ... if ($meta && ref($meta) && (ref($meta) eq 'HASH')) { foreach (keys %$meta) {push(@result, qq(<META NAME="$_" CONTENT="$meta->{$_}">)); } } ... return join("\n", @result); 上は CGI.pm の start_html の処理の概略ですが、<title> の位置は固定になっていて変更することはできないようです。メソッドの戻り値を編集加工する必要があると思います。改行のことを考慮していませんが次のような感じで...。 my $start_html = $q->start_html(...); $start_html =~ s/(<title>.*?</title>.*?)(<meta[^>]*UTF-8[^>]*>)/$2$1/si; print $start_html;

ログインすると、全ての回答が全文表示されます。