人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Perl と SQLite についてお尋ねします。

PerlとSQLiteを使ったソースを多く見てみたいのですが、
初心者向けのソースがあるHPを紹介していただけないでしょうか?

いろいろなソースを見てみたいです。よろしくお願いします。

たくさん紹介してくださった方には、少しですがポイントをはずみます。


●質問者: zachouR
●カテゴリ:コンピュータ インターネット
✍キーワード:Hp Perl SQLite ソース ポイント
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● いのくに
●35ポイント

http://www.itsmemo.com/it/cgi/000069.html

#!/usr/bin/perl

use DBI;

$mydb = "testdb";

# (1) データーベースに接続する
$hDB = DBI->connect(
 "dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
 );
if(!$hDB){
print "$DBI::errstr \n";
exit;
}

# (2) テーブル作成のSQL文
$sql =
 "CREATE TABLE user_info(
 id integer primary key,
 name,
 email
 )";

# (3) テーブル作成実行
$hst = $hDB->do($sql);
if(!$hst){
print $hDB->errstr . "\n";
exit;
}

$hDB->disconnect;

http://www.itsmemo.com/it/cgi/000075.html

#!/usr/bin/perl

use DBI;

$mydb = "testdb";

$hDB = DBI->connect(
 "dbi:SQLite:dbname=$mydb","","",{PrintError=>0}
 );
if(!$hDB){
print "$DBI::errstr \n";
exit;
}

# (1) データ取得のSQL文
$sql = "SELECT * FROM user_info WHERE id = ?";

# (2) データ取得実行
$hst = $hDB->prepare($sql);
if($hst){
for($id = 1; $id < 3; $id++){
$retval = $hst->execute($id);
if(!$retval){
print $hDB->errstr . "\n";
exit;
}
@data = $hst->fetchrow_array;
print "$data[0], $data[1], $data[2]\n";
}

$hst->finish;
}
else{
# エラー処理
print $hDB->errstr . "\n";
exit;
}

$hDB->disconnect;
◎質問者からの返答

ありがとうございます、参考にさせていただきます!


2 ● Iwa
●35ポイント

SQLite+Perl: テーブルを作成する方法

SQLite+Perl: データを挿入する方法

http://www.itsmemo.com/it/cgi/000069.html

http://www.itsmemo.com/it/cgi/000072.html

101号室より愛をこめて: [Perl][DB][SQLite] SQLite(Windows + ActivePerl)

http://www.ornithopter.jp/archives/2006/02/sqlitewindows_a.html

拙作ですが↓

改造版はてなまん for SQLite

http://www.ethersky-online.net/cgi/hatenaman.htm

または

http://www.yumemaboroshi.net/cgi4684/

◎質問者からの返答

ありがとうございます、参考にさせていただきます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ