新・元地方の中規模印刷会社で苦悩するWebデザイナー改めWebディレクターの日記

自由な20代、窮屈な30代を経て、遂に40代になっちまったWebディレクター&パソコン講師の覚書と思う言(こと)。略称【ちほちゅう】

*

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;


ここまで簡単にできました。

参考サイト
Perlプログラムをコンパクトに記述する方法 – builder by ZDNet Japan

 - プログラミング, 覚え書き

アドセンス広告メイン

Message

メールアドレスが公開されることはありません。

  関連記事

Google+ページとWordPressを連携させた時、記事を一般公開設定にする方法

1年以上前の記事です。内容が古い可能性があります。今まで使っていたブログサービス …

jQueryスライドショー「bxSlider」のレイアウトをカスタマイズする際に注意すべきたったひとつのポイント

1年以上前の記事です。内容が古い可能性があります。なんとも有名なjQueryを使 …

今度はPowerPointが原因?書類の使い回しはプロパティをチェック

1年以上前の記事です。内容が古い可能性があります。何度も企画書を書いているうちに …

no image
コピー防止用紙の作り方

1年以上前の記事です。内容が古い可能性があります。コピー防止用紙って知ってますか …

OpenOffice「Calc」のセルの結合はメニューから

1年以上前の記事です。内容が古い可能性があります。タイトル通り。 表計算ソフト「 …

ルーターをブリッジとして使うときの注意点(6/17修正)

1年以上前の記事です。内容が古い可能性があります。会社に無線対応のルーターが導入 …

no image
いいこと

1年以上前の記事です。内容が古い可能性があります。いいこと思いつきました。

no image
301リダイレクトをperlで

1年以上前の記事です。内容が古い可能性があります。今まで、アクセス数の多いサイト …

意外に怖い。「マダニ感染症」は治療薬がなく死ぬ可能性も高い

1年以上前の記事です。内容が古い可能性があります。これは怖い。 □ 全 …

P905iで登録した電話をiPhoneに取り込む方法

1年以上前の記事です。内容が古い可能性があります。ちょっと前に「P905iの電話 …

血液型オヤジ