Perl

▼Ｐｅｒｌ（パール）とはＣＧＩを書くもの

UNIX上で開発されたファイル処理コマンドですが、MS-DOSにも移植されています。C言語と似た構文をもち、フリーソフトとして配布されています。 同様のコマンドにAWKなどがありますが、perlの方が多少記述力は高いようです。WWWにおいてCGIスクリプトを作成する際、CGIスクリプト内部 でperlを使用することが多いようです。

▼Ｐｅｒｌの得意な分野

ＰｅｒｌはＣＧＩを書くのに適した言語です。でも、ＣＧＩを書くためだけに開発されたものではありません。Ｐｅｒｌという言語を簡単にあらわすと「テキストファイルを処理するのに適した言語」と言えます。ＣＧＩの内部処理ではテキストファイルを処理する事で事足りることが多いので、ＣＧＩの処理としてＰｅｒｌがよく使われるのです。
しかも、ＰｅｒｌはＵＮＩＸやＬｉｎｕｘなどのＯＳではじめから備えられている場合が多く、サーバーから簡単に呼び出すことが可能です。

▼CGIにおいてのＰｅｒｌ

Ｐｅｒｌの基本を述べるページはあちこちにあるので、ここではＣＧＩを説明しつつＰｅｒｌの文法を説明しようと思います。
ＣＧＩというと、ホームページから何かをクリックするタイミングでサーバー内でプログラムを動かして、その結果をホームページ上で表示するというのが一般的な概念ではないかと思います。
たとえば、アクセスカウンターや、掲示板、データの記録や表示などですが、仕組みさえ覚えてしまえばとても簡単なものです。
いろいろ、改良をして自分のためのＣＧＩを作成するのも楽しいですよ。

ＤＢとの連携でいろいろな情報を溜め込んだり表示したり分析したりも思ったより簡単にできます。ＤＢの導入と設定は、自宅サーバーの説明を参照してください。

▼まずは、基本のアクセスカウンターから

ホームページを公開したら、どのくらいアクセスがあるかを知りたいですよねぇ。そのためにアクセスカウンターを設置する人が多数います。
インターネット上ではたくさんの無料のアクセスカウンターが公開されています。難しいことを考えたくない場合は公開しているアクセスカウンターを借りてきて自分のページに貼り付けるのが手っ取り早いですね。

ここでは、アクセスカウンターの仕組みと、Ｐｅｒｌで簡単に作成する方法を説明します。つまり単純なアクセスカウンターの構造の説明とＰｅｒｌの用法の説明です。

まず、簡単なＣＧＩの作成の方法です。最初にＰｅｒｌの存在場所を確認しておきましょう。
サーバーにＴｅｌｎｅｔで接続して確認しましょう。
[root@linux ~]# which perl　　←　perlの場所を検索
/usr/local/bin/perl

カウンターの代表的なものには２種類あって、ＳＳＩを使う方式と、イメージを使用するものがあります。どちらも、ページが表示されると、ＣＧＩを起動して結果を表示するものです。

【ＳＳＩによるもの】
ＣＧＩはファイルを開いて、カントを読み出して１つ追加して保存してそのデータをプリントする。
受け取るページは、ｓｈｔｍｌで、<!--#exec cmd="./ＣＧＩ名"-->により、ＣＧＩを呼び出す。

＜表示例＞ここをクリックしてください。

このＣＧＩには、ファイルの読み出しと、書き出しの基本が含まれています。

ここで使っているＣＧＩは単純なものですので、そのままでは実用に即しません。
#!/usr/bin/perl
$countfile = 'ssiCount.dat';
open(FH,"<$countfile");
$num = <FH>;
close FH;
$num++;
open(FH,">$countfile");
print FH "$num\n";
close FH;
print $num;
１行目は、パールのある場所を指定しています。
２行目はカウントデータファイルを指定しています。
３行目はファイルを読み出し用にＯｐｅｎしています。
４行目は、変数$numに内容を読み出しています。
５行目でファイルを閉じています。
６行目で変数をインクリメント（１つ繰り上げ）します。
７行目は、ファイルを書き出し用にＯｐｅｎしています。
８行目で数字をファイルに書き出しています。
９行目でファイルを閉じています。
１０行目で、数値を書き出し（標準出力に）しています。
その結果を、ｓｈｔｍｌファイルで受け取り表示しています。


【Ｇｉｆによるもの】

基本は、ＳＳＩの場合と同じです。数値を画像ファイル（gifかjpeg）に変換するのと、１０行目の標準出力のかわりに、ＨＴＭＬに出力する部分を付け加えるだけです。

※数値を画像ファイルの配列にする方法
$digit = length($num);
for($i = 0;$i < $digit; $i++){
　　$imgfile = substr($num,$i,1);
　　$imgfile = "$IMGNAME$imgfile";
　　$imgname = "$imagedir/$imgfile.gif";
　　push(@counterimg,$imgname);
}
・画像ファイルが、$imagedirで指定したフォルダの中に、$IMAGNAMEで指定したファイル名＋数字＋.gif名で０〜９まで用意されている事が前提条件です。
（例えば、cnt5.gifのような名前）
１行目で変数$digitにカウントデータの桁数を保存する。
２行目はその桁数分の繰り返しの開始
３行目は、変数$imgfileに各桁の数値を渡します。
４行目は、ファイル名と、桁の数値をたしたファイル名を作ります。
５行目は、フォルダ（ディレクトリ名）を足してファイル名とします。
６行目は、配列@counterimgに画像ファイルを追加します。
７行目は、繰り返しの最後です。

次に表示部分ですが、ここでは、gifcat.plというライブラリを使用します。（とほほさんのライブラリページからダウンロードできます）
大半のカウンターがこのライブラリgifcat.plのお世話になっているといっても過言ではないかと思います。とほほさんありがとうございます。

このライブラリをＣＧＩと同じディレクトリにアップロードして、属性を７５５に変更します。使用方法は次のようにします。
require './gifcat.pl';
print "Content-type: image/gif\n\n";

binmode(STDOUT);
print gifcat::gifcat(@counterimg);

＜表示例＞←ここをクリックしてください

▼簡単にグラフを表示する

何かをグラフにして表示したい場合がありますね。その時はどうしたらいいのでしょうか？
簡単な方法が、データをＣＧＩで取得したら表示するデータの割合を計算し、テーブルの中で画像を表示する時に、widthの大きさを％で指定する方法です。
データ１ ７ ７７％
データ２ ９ １００％
データ３ ３ ３３％
データ４ ６ ６６％
データ５ ４ ４４％

ＣＧＩを使ってホームページを表示する時に、上記のグラフと同じソースを使い、ＷＩＤＴＨの大きさを変数にして渡せば同じように表示できます。
この方法を使えばカウンターの値やデータベースの値を取り出してグラフにして確認するページを作成できます。

＜ＣＧＩによるグラフの表示例＞←こちらをごらんください


▼掲示板って

▼データを保存して表示する（テキスト方式)

▼ＤＢ（データベース）をＰｅｒｌでコントロールする