- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!!Windows
○SQLiteモジュールのDL
ppm
ppm> install DBD-SQLite
○実行
Perl test.pl
!!Linux
○SQLiteモジュールのDL
perl -MCPAN -e shell
b /DBD.*/
install DBD::SQLite
○プロキシの変更
cpan> o conf http_proxy http://プロキシ名:ポート番号
cpan> o conf ftp_proxy http://プロキシ名:ポート番号
cpan> o conf commit
○実行
Perl test.pl
!!コード
http://www.itsmemo.com/it/cgi/000075.html
のそのまま
{{code Perl,2
#!/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 testtb WHERE id = ?";
my ($db_id, $db_name);
# Perlの変数を列に結び付ける
# (2) データ取得実行
$hst = $hDB->prepare($sql);
$hst->bind_columns(undef, \($db_id, $db_name));
if($hst){
for($id = 1; $id < 10; $id++){
$retval = $hst->execute($id);
if(!$retval){
print "error";
print $hDB->errstr . "\n";
last;
}
# @data = $hst->fetchrow_array;
$data = $hst->fetch;
print $data;
if (!$data) {
print $hDB->errstr . "\n";
last;
}
# print "$data[0], $data[1], $data[2]\n";
print "$db_id, $db_name\n";
}
print "finish";
$hst->finish;
}
else{
# エラー処理
print $hDB->errstr . "\n";
exit;
}
print "disconnect";
# $hDB->commit;
# $a = <STDIN>;
$hDB->disconnect;
}}
{{category2 プログラミング言語,Perl}}