1.설치파일
2.설치
gunzip DB*
tar -xvf DB*.tar
cd DB*
make
make test
make install
| [sqlite] rownum 기능 limit 기능으로 구한다. (0) | 2016.03.06 |
|---|---|
| [sqlite] perl select 쿼리 (0) | 2016.03.06 |
| [sqlite] perl 테이블 삭제/생성/인서트 (0) | 2016.03.06 |
| [sqlite] 테이블 구조 보기 (0) | 2016.03.06 |
rownum 기능이 없는 sqlite3
select * from idle
where jobid='4621'
order by time asc
limit 1;
limit 기능이 있다고 함. 굳
| [sqlite] DBI DBD on linux (0) | 2016.03.06 |
|---|---|
| [sqlite] perl select 쿼리 (0) | 2016.03.06 |
| [sqlite] perl 테이블 삭제/생성/인서트 (0) | 2016.03.06 |
| [sqlite] 테이블 구조 보기 (0) | 2016.03.06 |
1. @ <- 배열에 넣는 방법;
이게 편함
DBD-SQLite-1.42.tar.gz#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect(
"dbi:SQLite:dbname=test.db",
"",
"",
{ RaiseError => 1 },
) or die $DBI::errstr;
my $sth = $dbh->prepare( "SELECT * FROM Cars LIMIT 5" );
$sth->execute();
my @row;
while (@row = $sth->fetchrow_array()) {
print "@row\n";
}
$sth->finish();
$dbh->disconnect();2. $에 넣어서 @$로 받는 방법
-> 테스트 하지 않음
#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect(
"dbi:SQLite:dbname=test.db",
"",
"",
{ RaiseError => 1 },
) or die $DBI::errstr;
my $sth = $dbh->prepare("SELECT * FROM Cars LIMIT 5");
$sth->execute();
my $row;
while ($row = $sth->fetchrow_arrayref()) {
print "@$row[0] @$row[1] @$row[2]\n";
}
$sth->finish();
$dbh->disconnect();| [sqlite] DBI DBD on linux (0) | 2016.03.06 |
|---|---|
| [sqlite] rownum 기능 limit 기능으로 구한다. (0) | 2016.03.06 |
| [sqlite] perl 테이블 삭제/생성/인서트 (0) | 2016.03.06 |
| [sqlite] 테이블 구조 보기 (0) | 2016.03.06 |
#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect(
"dbi:SQLite:dbname=test.db",
"",
"",
{ RaiseError => 1}
) or die $DBI::errstr;
$dbh->do("DROP TABLE IF EXISTS Cars");
$dbh->do("CREATE TABLE Cars(Id INT PRIMARY KEY, Name TEXT, Price INT)");
$dbh->do("INSERT INTO Cars VALUES(1,'Audi',52642)");
$dbh->do("INSERT INTO Cars VALUES(2,'Mercedes',57127)");
$dbh->do("INSERT INTO Cars VALUES(3,'Skoda',9000)");
$dbh->do("INSERT INTO Cars VALUES(4,'Volvo',29000)");
$dbh->do("INSERT INTO Cars VALUES(5,'Bentley',350000)");
$dbh->do("INSERT INTO Cars VALUES(6,'Citroen',21000)");
$dbh->do("INSERT INTO Cars VALUES(7,'Hummer',41400)");
$dbh->do("INSERT INTO Cars VALUES(8,'Volkswagen',21600)");
$dbh->disconnect();The above script creates a Cars table and inserts 8 rows into the table.
$dbh->do("CREATE TABLE Cars(Id INT PRIMARY KEY, Name TEXT, Price INT)");
The do() method executes the SQL statements. It combines two method calls, prepare() andexecute() into one single call. The do() method is used for non-select statements.
$dbh->do("INSERT INTO Cars VALUES(1,'Audi',52642)");
$dbh->do("INSERT INTO Cars VALUES(2,'Mercedes',57127)");출처 : http://zetcode.com/db/sqliteperltutorial/connect/
| [sqlite] DBI DBD on linux (0) | 2016.03.06 |
|---|---|
| [sqlite] rownum 기능 limit 기능으로 구한다. (0) | 2016.03.06 |
| [sqlite] perl select 쿼리 (0) | 2016.03.06 |
| [sqlite] 테이블 구조 보기 (0) | 2016.03.06 |
| sqlite> pragma table_info(CITY_INFO); 0|CITY_ID|INTEGER|1||0 1|CITY_NAME|TEXT|1||0 2|UPDATE_DATE|TIMESTAMP|0|CURRENT_TIMESTAMP|0 또는 sqlite> select * from sqlite_master where tbl_name='CITY_INFO'; table|CITY_INFO|CITY_INFO|13|CREATE TABLE CITY_INFO ( CITY_ID INTEGER NOT NULL, CITY_NAME TEXT NOT NULL , UPDATE_DATE TIMESTAMP DEFAULT CURRENT_TIMESTAMP ) sqlite> pragma table_info(sqlite_master); 0|type|text|0||0 1|name|text|0||0 2|tbl_name|text|0||0 3|rootpage|integer|0||0 4|sql|text|0||0 |
출처 : http://webkebi.zany.kr:9003/board/bView.asp?bCode=19&aCode=2538
| [sqlite] DBI DBD on linux (0) | 2016.03.06 |
|---|---|
| [sqlite] rownum 기능 limit 기능으로 구한다. (0) | 2016.03.06 |
| [sqlite] perl select 쿼리 (0) | 2016.03.06 |
| [sqlite] perl 테이블 삭제/생성/인서트 (0) | 2016.03.06 |