new(""); ## データベース">

さじろーどっとねっと
<基本的な使用方法>

以下のプログラムを参照して下さい。
Sample

require "lib/perldb.pl"; ## データベースファイルの宣言
$sdb = perldb->new(""); ## データベースの初期化
## データの作成
$rec = "これはテストです<>This is test<>sajiro<>bigfoot.com<>";
$sdb->insert( "table", "$rec" ); ## データの登録
$sdb->commit(); ## この時点でデータは正式に登録されます
## 登録したデータを抽出する
@dat=$sdb->select( "table", "3 eq sajiro" );
foreach(@dat){
## 抽出したデータを分割する。
($no,$japan,$english,$name,$domain) = split( /<>/ ,$_ );
## 分割したデータを表示する。
print "$no,$japan,$english,$name,$domain\n";
## このように表示されます
## --> 1,これはテストです,This is test,sajiro,bigfoot.com
}
## 抽出したデータの削除
@dat=$sdb->delete( "table", "3 eq sajiro" );
foreach(@dat){
print "$_"; ## 削除したデータの表示
}

new関数によってデータベースは初期化されます。
new関数で獲得したデータから他の全ての関数を呼び出します。
(呼び出し方法は他にもありますが、動作確認をしたのは上記の方法です)

ブックマークに追加する