C02:CGIからリンクさせる

掲示板などはCGIがHTML自体を出力する事によりページを表示しますが、CGIから別のページにリンクさせたい時もあると思います。
今回は、CGIにアクセスする事により、別のページにリンクするようなCGIを紹介します。
渡すデータでリンク先が変わるようにしておけば、クイズ形式のページを作る時などに役立ちます。

ファイルを開く

解説
#!/usr/local/bin/perl
プロバイダがPerlを置いている場所を記述します。
ここでは/usr/local/bin/perlにあるとしています。
#リンクさせるURL
$url[0]="";
$url[1]="";
$url[2]="";
$url[3]="";
http://で始まるURLを$url[xx]に代入しています。
$data=$ENV{'QUERY_STRING'};
$i=int($data);
このCGIを呼び出したページから渡されたデータを$dataに代入しています。
$dataを整数にして$iに代入しています。
printf("Location:$url[$i]\n\n");
$url[$i]が指すURLにリンクするようにしています。
☆今回のポイント☆
CGIから別のページにリンクさせよう!
exit;
プログラムを終了させます。