perl の open について教えてください。

Question

いつも助け手いただいており，ありがとうございます。ある団体のお手伝いでＨＰをいじっております。基本，既製のスクリプトを改造しながら，あれこれやっておりますが，新たに作る必要がうまれ，あれこれ始めましたが，open　にてつまづきました。 perlについては，初心者のレベルだと思います。やってることは単純なことだと思うのですが，下記内容のhtmlファイルを開くことです。　ファイル名　test.html 中身↓ 　ページタイトル

うまく動くでしょうか。

このファイルを開くのに，ファイル名　app.cgi 中身↓ #!/usr/bin/perl open (IN,"test.html"); #index.htmlというHTMLファイルを読み込む my @tmp=; close (IN); #ファイルハンドルを閉じる print @tmp; exit; だと５００のサーバーエラーになりますが，下記のようにprint（・・・・）を入れるときちんと実行できます。ファイル名　app.cgi 中身↓ #!/usr/bin/perl print "Content-type: text/html "; open (IN,"test.html"); #index.htmlというHTMLファイルを読み込む my @tmp=; close (IN); #ファイルハンドルを閉じる print @tmp; exit; なぜprintを入れるとエラーにならないのか分かりません。テキストファイルを開くときは， printを入れなくてもひらけるようですが，この辺の違いがよく分かりません。アドバイスいただけるとありがたいです。

kmee · Accepted Answer

普段意識することはありませんが。
htmlファイルに書いたものがそのまま送信されているのではありません。

リクエストを送ると、受け取ったサーバーは URLを解釈してデータを送り返してきます。
このとき送られてくるデータには「ヘッダー」が付けられます。
ヘッダーはテキストで書かれた情報であり、改行だけの行で本体データと区切られます。

例えば
http://〜/test.html
　とブラウザに入力したら、受けとったサーバーは
　該当するファイルを読み込み、ヘッダーを付けて
Content-type: text/html
(その他のヘッダー)
(改行だけの行)
<!DOCTYPE html>
(以下test.htmlの内容)
　というデータにして送り返します。

受けとったブラウザはヘッダーと本体データを分けて処理します。
例) Content-type: text/html はHTMLファイルなので、本体データをHTMLと解釈してブラウザで表示する。

CGIというのは、このHTTPサーバーの
「該当するファイルを読み込み、ヘッダーを付けて送信」
という動作のかわりに
「該当するプログラムを実行し、出力をそのまま送信」
という動作をするものです。ファイルのときにあった「ヘッダーを付けて」の部分はプログラムに組込まれています。
ヘッダーが不正なものはエラーになります。

print "Content-type: text/html

";
はこのヘッダーを出力するものです。
削除すると全体として「不正なデータを出力するプログラム」になってしまうためにエラーになります。

openとは関連はありません。

なお、そのプログラムは「該当するファイルを読み込み、ヘッダーを付けて送信」というのをCGIで書いたものです。

fujillin · Answer

こんにちは

横からですが・・

No3様が指摘していらっしゃる「ヘッダー」に関して、少し調べてみるのが宜しいかと思います。
https://allabout.co.jp/gm/gc/433673/2/
http://sak.cool.coocan.jp/w_sak3/doc/sysbrd/pe_kj01.htm

zircon3 · Answer

No.1です。

> print　の記述のある説明をみていませんでした。

print文は指定された内容を標準出力するだけです。
そうではく

> print "Content-type: text/html

";

は具体的に何を書き出しているかです。
試しに

print "Content-type: text/html
";

としてみましょう。

ではなく、
としてみるのです。
どうなりますか？
このprint文で出力しているのはHTTPヘッダーのうちのContent-type行です。
では、test.htmlファイルの中身は何でしょう？
そういう最も基本的なHTTPのデータ構造を理解していないので「このprint文の有無で何でエラーになったりならなかったりするの？」となるのでしょう。
プログラムの表面ばかり見ていて、プログラムが動く環境とプログラムが何をしていいるかを理解していないから起きている問題だと当方は思います。

ではでは。

ありものがたり · Answer

おそらく、
close (IN);　と
print @tmp;　の順番が逆なんだと思うが、

print "Content-type: text/html

";　を書き足すと
なぜエラーにならないのかは、サッパリ解らない。

zircon3 · Answer

> このファイルを開くのに，
>ファイル名　app.cgi
> 中身↓

えっと。。。
この文章の意味をり合い出来ません。

> #!/usr/bin/perl

これはPerlで記述するCGIプログラムの頭に記すPerlの実行プログラムが置かれている場所です。

> open (IN,"test.html"); #index.htmlというHTMLファイルを読み込む

実際にオープンしようとしているファイル名（test.html）とコメントにあるファイル名（index.html）が一致していません。
細かい事ですが。。。
また、やっていることは「index.htmlというHTMLファイルを読み込む」ではなく「test.htmlファイルのオープン」です。
更に言えば、ファイルのオープンをしていることはプログラムソースを見ればわかるので、コメントして必要なのはtest.htmlはどういうファイルなのかの説明です。

> だと５００のサーバーエラーになりますが，

HTTPの500番のエラーの意味は確認されましたか？
これはWebサーバー上でのCGIプログラムの実行で何らかのエラーが発生したため、実行中のCGIプログラムの処理を打ち切った・・・つまりこれ以上このCGIプログラムを実行することが出来なくなったというものです。

で、ですね。。。
質問者様はご自身が扱っているプログラムが何をしているかを理解されていないのだと思います。
つまり「自分がやりたいことをやっていると思われるプログラムを見つけて来て、その中身が具体的に何をどういう手順で処理してやりたいことをじちゅ減しているかを理解せずに使っている」のでしょう。
まずやらなければならないことは、以下の4行の1行、1行の意味を理解することです。

> open (IN,"test.html"); #index.htmlというHTMLファイルを読み込む
> my @tmp=<IN>;
> close (IN); #ファイルハンドルを閉じる
> print @tmp;

なお、その際、test.htmlの中身も理解しましょう。
そうしないとこのプログラムはアクセスして来たWebブラウザに対してどういう内容のHTMLを送出しているかがわからないからです。

ちなみに、このプログラムはどこかからパクって来たものである場合、パクリ元のプログラムは質問者様の下でちゃんと動いていますか？
動いているとすれば、test.htmlに当たるファイルの中身はどうなっていますか？

全てが“おまじない”のように動いる状況なのでしたらPerlであれ何であれプログラミングをやっているという状態ではないので、ちゃんと基本的な理屈を理解されることです。
CGIプログラムという動的コンテンツを扱われているわけですが、そもそも基本中の基本である静的コンテンツはどう作られていているかや、HTTPの通信ではコンテンツのHTML本文の前にどういうHTTPヘッダーを付けなければならないといったことを理解しましょう。
それがわかれば・・・

> print "Content-type: text/html

";

の有無でなぜ500エラーになったり正常に実行でいたりするのかを近い出来ます。

参考まで。

perl の open について教えてください。

普段意識することはありませんが。

こんにちは

No.1です。

おそらく、

> このファイルを開くのに，

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング