【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;