ランダム・ページ　ソースと解説

1997年8月1日から書き始めたこのAvocado Mixもかなりのページ数になりました。どんな事を書いたのか忘れているページもありそうです。いちいちページを繰って見直すのも面倒なのでやっていませんが、ふと、ランダムに適当なページを開けたら面白そうだなと思いつきました。

そこで作ったのが、この上の「ランダム・ページ」ボタンです。これをトップ・ページの右上に取り付けました。ランダムというだけあって、押すたびに別のページを選出して表示してくれます。

ブロック図

これも phpで書いています。あらかじめデータベースにAvocadoMix内のhtmlページを登録しておき、乱数でそのページを選んでPCなどのユーザーのWebブラウザに送るというしくみです。

データベース・テーブルの作成

Avocado Mix制作用PCのEドライヴの該当するディレクトリで、DOSのTREEコマンドで全ファイル名をテキストファイル(filelist.txt)に出力します。11,736行ありました。


・・・・・・・・・・・・・・・・・・・・・・
│          
├─aircraft
│  │  haneda1998.bak
│  │  haneda1998.html
│  │  index.BAK
│  │  index.html
│  │  wings1999.bak
│  │  wings1999.html
│  │  wings2000.bak
│  │  wings2000.html
│  │  
│  ├─aboutme
│  │      index.bak
│  │      index.html
│  │      
│  ├─haneda1998
│  │      Image1.jpg
│  │      Image2.jpg
│  │      Image3.jpg
│  │      Image4.jpg
│  │      Image5.jpg
│  │      Image6.jpg
│  │      Image7.jpg
│  │      index.html
│  │      
│  ├─wings1997
│  │      BEECH.jpg
│  │      EXTRA300.jpg
│  │      index.html
│  │      US1A_A.jpg
│  │      US1A_B.jpg
│  │      US1A_C.jpg
│  │      YS11.jpg
│  │      
│  ├─wings1999
│  │      c130.jpg
│  │      c2a-1.jpg
│  │      c2a-2.jpg
│  │      e2c-1.jpg
│  │      e2c-2.jpg
│  │      e2c-3.jpg
│  │      ea6b-1.jpg
│  │      ea6b-2.jpg
│  │      ea6b-3.jpg
│  │      ex-1.jpg
│  │      ex-2.jpg
│  │      f14-1.jpg
│  │      f14-2.jpg
│  │      f14-3.jpg
│  │      fa18-1.jpg
│  │      fa18-2.jpg
│  │      fa18-3.jpg
│  │      fa18-4.jpg
│  │      fa18-5.jpg
│  │      fa18-6.jpg
│  │      fa18-7.jpg
│  │      index.html
│  │      p3c-1.jpg
│  │      p3c-2.jpg
│  │      s3b.jpg
│  │      sh-1.jpg
│  │      sh-2.jpg
│  │      sh-3.jpg
│  │      sh-4.jpg
│  │      sh-5.jpg
│  │      sh-6.jpg
│  │      sh-7.jpg
│  │      sh60f-1.jpg
│  │      sh60f-2.jpg
│  │      u2.jpg
│  │      wings99.jpg
│  │      
│  └─wings2000
│          index.html
│          P6300001.jpg
│          P6300006.jpg
│          P6300007.jpg
│          P6300011.jpg
│          P6300017.jpg
│          P6300019.jpg
│          P6300023.jpg
│          P6300024.jpg
│          P6300025.jpg
│          P6300027.jpg
│          P6300029.jpg
│          P6300037.jpg
│          P7010004.jpg
│          P7010010.jpg
│          P7010014.jpg
│          s-P6300027 - コピー.jpg
│          s-P7010004 - コピー.jpg
│          
├─anzen
│  │  anzen.bak
│  │  anzen.html
│  │  battery.bak
│  │  battery.html
│  │  index.bak
│  │  index.html
│  │  kiken.bak
│  │  kiken.html
│  │  menkyo.bak
│  │  menkyo.html
│  │  pank.bak
│  │  pank.html
│  │  shurui.bak
│  │  shurui.html
│  │  stolen.bak
│  │  stolen.html
│  │  
│  └─battery
│          batt1.jpg
│          batt2.jpg
│          batt3.jpg
│          index.html
│          
・・・・・・・・・・・・・・・・・・・

上のように制作に要するhtml以外のファイルも出てきますので、これを整理してディレクトリ名とhtmlファイル名だけにします。

aboutme/index.html
aircraft/haneda1998.html
aircraft/index.html
aircraft/wings1999.html
aircraft/wings2000.html
anzen/anzen.html
anzen/battery.html
anzen/index.html
anzen/kiken.html
anzen/menkyo.html
anzen/pank.html
anzen/shurui.html
anzen/stolen.html
blog/b1997.html
blog/b1998.html
blog/b1999.html
blog/b2000.html
blog/b2001.html
blog/b2002.html
blog/b2003.html
blog/b2004.html
blog/b2005.html
blog/b2006.html
blog/b2007.html
blog/b2008.html
blog/b2009.html
blog/b2010.html
blog/b2011.html
blog/b2012.html
blog/b2013.html
blog/b2014.html
blog/b2015.html
blog/index.html
camera/accessory.html
camera/index.html
camera/lens.html
camera/lm_variation.html
camera/vh_variation.html
cinemagraph/cineg01.html
cinemagraph/cineg02.html
cinemagraph/cineg03.html
cinemagraph/index.html
kosaku/01.html
kosaku/02.html
kosaku/03.html
kosaku/04.html
kosaku/05.html
kosaku/06.html
・・・・・・・・・・・・・・・

このままでは乱数での選択ができませんから、識別番号（一連番号）を付ける必要があります。こういう処理はBASICの得意とするところです。

先日も登場した「十進BASIC」で以下のプログラムを作って実行しました。

PRINT "*******************************"
PRINT "* add id to filelist.txt      *"
PRINT "* filelist.txt を読み込み     *"
PRINT "* 先頭に連番を付けて          *"
PRINT "* html_list.csvを出力する。   *"
PRINT "*******************************"
INPUT  PROMPT "何かキーを押してください。":a$
OPEN #1:NAME "filelist.txt" ,RECTYPE INTERNAL
OPEN #2:NAME "html_list.csv" ,RECTYPE INTERNAL
id =0
DO
   READ #1,IF MISSING THEN EXIT DO: name$
   id = id + 1
   WRITE #2: id,name$
LOOP
CLOSE #1
CLOSE #2
PRINT "終わりました。"
END

これが出力されたCSVファイル(html_list.csv)です。この段階ではシフトJISですが、これをMySQL用にUTF-8に変換しておきます。

 1 ,"aboutme/index.html"
 2 ,"aircraft/haneda1998.html"
 3 ,"aircraft/index.html"
 4 ,"aircraft/wings1999.html"
 5 ,"aircraft/wings2000.html"
 6 ,"anzen/anzen.html"
 7 ,"anzen/battery.html"
 8 ,"anzen/index.html"
 9 ,"anzen/kiken.html"
 10 ,"anzen/menkyo.html"
 11 ,"anzen/pank.html"
 12 ,"anzen/shurui.html"
 13 ,"anzen/stolen.html"
 14 ,"blog/b1997.html"
 15 ,"blog/b1998.html"
 16 ,"blog/b1999.html"
 17 ,"blog/b2000.html"
 18 ,"blog/b2001.html"
 19 ,"blog/b2002.html"
 20 ,"blog/b2003.html"
 21 ,"blog/b2004.html"
 22 ,"blog/b2005.html"
 23 ,"blog/b2006.html"
 24 ,"blog/b2007.html"
 25 ,"blog/b2008.html"
 26 ,"blog/b2009.html"
 27 ,"blog/b2010.html"
 28 ,"blog/b2011.html"
 29 ,"blog/b2012.html"
 30 ,"blog/b2013.html"
 31 ,"blog/b2014.html"
 32 ,"blog/b2015.html"
 33 ,"blog/index.html"
 34 ,"camera/accessory.html"
 35 ,"camera/index.html"
 36 ,"camera/lens.html"
 37 ,"camera/lm_variation.html"
 38 ,"camera/vh_variation.html"
 39 ,"cinemagraph/cineg01.html"
 40 ,"cinemagraph/cineg02.html"
 41 ,"cinemagraph/cineg03.html"
 42 ,"cinemagraph/index.html"
 43 ,"kosaku/01.html"
 44 ,"kosaku/02.html"
 45 ,"kosaku/03.html"
 46 ,"kosaku/04.html"
 47 ,"kosaku/05.html"
 48 ,"kosaku/06.html"
 49 ,"kosaku/07.html"
 50 ,"kosaku/08.html"
・・・・・・・・・・・・・・・・・

次に、Webサーバ上のMySQLでデータベース内にテーブル(filelist)を作ります。

idフィールドは整数11桁でキー・フィールドに設定しています。
nameフィールドは128バイトまでにしています。まあ十分でしょう。
このテーブルに先ほど作っておいたCSVファイルをPC側からインポートします。
今後、現在書いているこのページのようにhtmlファイルが増えて行きますが、その都度レコードを追加して行きます。

ソース

実際の文字コードはUTF-8ですが、ここではShift-JISにして表示します。今回は画面表示はありませんので、Viewは使いません。

MVC	file name	概要
Controller	randompage.php	プログラムの本体
Model	randompage_model.php	各関数の定義

controllers/addtime.php

<?php
/*　ランダム・ページ
 *　Avocado Mix内のページをランダムに表示する。
 *  2016年10月28日(金)
 */

class Randompage extends Controller {

# コンストラクタ
	function Randompage()
	{
		parent::Controller();
		$this->output->set_header('Content-Type: text/html; charset=UTF-8');
		$this->load->database();
		$this->load->helper('url');
		$this->load->model('Randompage_model');
	}

// filelistテーブルにはディレクトリ名とhtmlファイル名が登録してあり、
// これをランダムに選択してURLを作り、そこにリダイレクトする。
	function index()
	{
		//データベースからランダムにURLを選択する。
		$url = $this->Randompage_model->get_randomfile();
		//そのURLに移動する。
		redirect($url);
	}

}

?>

モデル内のget_randomfile()関数を呼んで、結果をurl$として受け取ります。
PC等のWebブラウザをそのURLに移動させます。

models/addtime_model.php

<?php
Class Randompage_model extends Model
{
	function Randompage_model()
	{
		parent::Model();
		$this->load->database();
	}

	//ランダムにhtmlを指定する
	function get_randomfile()
	{
		//filelistテーブルのレコード数を得る
		$this->db->order_by('id');
		$query = $this->db->get('filelist');
		$rowcount = $query->num_rows();

		//乱数で1からレコード数（idの最大値）までの数を発生させる
		mt_srand();
		$num = mt_rand(1,$rowcount);

		//そのidのレコードを得る
		$this->db->where('id', $num);
		$query = $this->db->get('filelist');
		$row = $query->row();

		//先頭にディレクトリ移動記号を付加して返す
		$url = '../../'.$row->name;
		return $url;
	}

}
?>

filelistテーブルのレコード数（idの最大値）を求めます。
乱数で1からレコード数（idの最大値）までの数を発生させます。
そのidのレコードを読み出します。
先頭にディレクトリ移動記号を付加して返します。これは、使用しているフレームワークの仕様で、既に設定してあるディレクトリからの移動の為です。

実行例

この下のボタンを押してみてください。このボタンはトップページの右上にもあります。

2016年10月29日　記

Page Top