-
require
【→Perl Reference: require】
Perlでは一つのスクリプトから他のスクリプトを読み込んで使うことができます。いろいろなスクリプトで使用するサブルーチンや常套句を、別ファイルにしておくと便利です。ここではHTML文の<html>から<body>までと、</body>から</html>の二種類の別ファイルを読み込んでみます。
先頭には必ずPerlのパスを記述します。このサーバでは#!/usr/local/bin/perl print "Content-type: text/html\n\n"; require './l_head_1.txt'; print "requireの結果です。ソースを見てください。\n"; require './l_foot_1.txt'; exit;
と先頭に#を付けて記述します。サーバによってPerlのパスが異なる場合がありますので確認してください。#!/usr/local/bin/perl
ブラウザにHTMLファイルだということを認識させます。print "Content-type: text/html\n\n";
l_head_1.txtは下です
print qq| <html> <head><title>requireのHEAD</title> <meta http-equiv="Content-Type" content="text/html; charset=x-euc-jp"> </head> <body> |; 1;
l_foot_1.txtは下です
print qq| </body> </html> |; 1;
requireの結果です。ソースを見てください。 - ちゃんとタグが挿入されていますね。
require される文の最終行の 1; に注目してください。これは require でファイルが正しく取り込めたかどうかをこの 1 で評価しているのです。
l_require_1.cgil_head_1.txt では<title>と</title>の間にあるタイトルが、このままではいつも一定になってしまいますので、色々なスクリプトに使いまわしができません。そこで変数を使用してみましょう。
- 変数
変数は次の機会に説明しますが、情報を入れておく箱だと思ってください。変数は $マークを付けて現します。
【→Perl Reference: $】
先ほどのl_head_1.txtを修正して下のようにします。
ここでは $title としましたが、$の後は自分で分かりやすいものに変えても構いません。print qq| <html> <head><title>$title</title> <meta http-equiv="Content-Type" content="text/html; charset=x-euc-jp"> </head> <body> |; 1;
更に先ほどの require で使用したスクリプトを少し直してみます。$title = "requireの新しいHEAD"; print "Content-type: text/html\n\n"; require './l_head_2.txt'; print "requireの結果です。ソースを見てください。\n"; require './l_foot_1.txt'; exit;
見た目は同じですがHTMLのタイトルに変数が正しく代入されています。requireの結果です。ソースを見てください。
$title に " に囲まれた内容を 代入するの意味です。代入には =(イコール) を使用します。数学のイコールの意味ではありません。数学のイコールを現すには == や eq などがあります。$title = "requireの新しいHEAD";
ついでに l_foot_1.txt も直してしまいます。
さて、これでどうなるでしょうか。print qq( <hr> |<a href="Javascript:history.back()">Back</a>| |<a href="../index.html">INDEX</a>| <hr> <font size="1">Copyright 2001 Coco's Home. All rights reserved.</font> </body> </html> ); 1;
これで少しは便利になってきました。
- 変数