【perl】(4)フレームワークを使って、ログイン処理・新規登録を行うプログラム

空のデータベーステーブルを作る。

use lib 'lib';
use IdaFrameWork;

my $i = IdaFrameWork->new;

eval{ $i->dbh->prepare('drop table users')->execute };
$i->dbh->prepare(q(
	CREATE TABLE users (
		id		VARCHAR( 8 ) NOT NULL ,
		name	VARCHAR( 255 ) NULL ,
		pass	VARCHAR( 255 ) NULL ,
		email	VARCHAR( 255 ) NULL ,
	PRIMARY KEY (id)
	) ENGINE = InnoDB CHARACTER SET utf8 COLLATE utf8_bin
))->execute;