cgi(perl)にhtmlを読み込ませる方法
1年以上前の記事です。内容が古い可能性があります。
たとえば与えられた変数によって違うページを表示させることを考える。
具体的には、ユーザーページやちょっとした占い等にもつかえそう。
そうでなくてもHTMLをCGIスクリプトの中に読み込ませることは多いはず。
そもそもプログラムをやる人間が知らなかったのも問題だが、そのあたりを調べてみた。
さっそくスクリプトから紹介。
1. $id .= ".html";
2. open(IN,$id);
3. @file = <IN>;
4. close(IN);
5. print "Content-type: text/html\n\n";
6. print "@file";
7. exit;
1. idに「.html」を付けてHTMLファイルと同名にする。
2. ID.html($id=”ID”とする)を開きファイルハンドルINに結びつける。
3. 配列fileにファイルハンドルINを代入
4. ファイルハンドルをクローズする。
5. HTML表示のための下準備
6. HTMLを表示する。
7. プログラムを抜ける。
参考書読んでいたらもうちょい省略できるみたい。
1. $id .= ".html"; 2. open(IN,$id); 3. print "Content-type: text/html\n\n"; 4. while (<IN>) { print; } 5. close(IN); 6. exit;
ポイントは4行目。
while文とファイルハンドルを使って配列を用意せずにファイルハンドルを直接プリントアウトできるようです。
そこで疑問に思うこと。ファイルハンドルって何?
「print <IN>;」や「print "IN";」「print IN;」じゃ何故ダメなの?
疑問を疑問のままにしておかないのが当ブログのモットーです。
動作確認も含め調べてみると、「print <IN>;」でしっかり動作しています。
(ちなみに「print "IN";」では「IN」と表示されるだけ。「print IN;」では何も表示されません)
いろいろ調べた結果、別に「print <IN>;」でもいいみたいです。
一般的にperlで外部データを読み込む場合、それはデータベースのことがおおく、
したがって配列にファイルハンドルを代入することが多いというのが最初のスクリプトの理由。
while文に関しては標準入力(STDIN)を表示させる場合のスクリプトの名残と、
ファイルハンドルに対してそのまま出力せずに、
様々な命令を付加できるという拡張性を考えて使われていることが多いようです。
つまり、
1. $id .= ".html"; 2. open(IN,$id); 3. print "Content-type: text/html\n\n"; 4. print <IN>; 5. close(IN); 6. exit;
ここまで簡単にできました。
アドセンス広告メイン
関連記事
-
コメントに対しての当ブログの考え
1年以上前の記事です。内容が古い可能性があります。最近コメントもいただけるように …
-
タンブラー(tumblr)に独自ドメインを設定してみた
1年以上前の記事です。内容が古い可能性があります。タンブラー(tumblr)って …
-
さくらインターネットでOpenPNE
1年以上前の記事です。内容が古い可能性があります。ステップサーバーではメールによ …
-
ツイッター(twitter)botを「さくらインターネット」に設置
1年以上前の記事です。内容が古い可能性があります。熊谷市のツイッターポータルサイ …
-
ツイッターでよくある間違い探しを簡単に確実に当てる方法
1年以上前の記事です。内容が古い可能性があります。ツイッターでちょくちょく間違い …
-
二日酔いには「スプライト」がいいらしいはデマ?
1年以上前の記事です。内容が古い可能性があります。中国の大学ということで、ちょっ …
-
JavaScriptでありがちな9つのシマッタ
1年以上前の記事です。内容が古い可能性があります。「JavaScriptでありが …
-
Googleイメージ検索で色が指定できる
1年以上前の記事です。内容が古い可能性があります。配色の話が出たところで、こちら …
-
iTunesで入手できないジャケ写を補填する方法【iPhone・iPod】
1年以上前の記事です。内容が古い可能性があります。iPhoneでiPod機能を使 …
-
スマホ(スマートフォン)の機種変、契約時に入らされる有料サービスを解約する方法2つ
1年以上前の記事です。内容が古い可能性があります。スマートフォンを契約したり、機 …
- PREV
- ブラウザはSafariもいいかもしれない
- NEXT
- 少年サンデー+少年マガジン=少年ウェンズデイ?