in reply to Re^2: Cross-platform DB
in thread Cross-platform DB
for sqlite, (shamelessly lifted from the cookbook):
#!/usr/bin/perl use strict; use warnings; use DBI; # what's your data look like? my %monks = ( '8930' => 'derby', '581658' => 'wpahiker', '961' => 'Anonymous Coward', '104919' => 'perrin' ); # create the database handle my $dbh = DBI->connect( "dbi:SQLite:monastery.dat" ); # create a table $dbh->do( "CREATE TABLE monks (id INTEGER PRIMARY KEY, name)" ); # insert values foreach my $monkid ( keys %monks ) { $dbh->do( "INSERT INTO monks VALUES ($monkid, '$monks{$monkid}')" ); } # fetch data my $sql = "select * from monks"; my $res = $dbh->selectall_arrayref( $sql ); foreach my $rec (@$res) { print "$rec->[1] is $rec->[0]\n"; } $dbh->disconnect;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^4: Cross-platform DB
by Anonymous Monk on Feb 21, 2007 at 18:12 UTC | |
by derby (Abbot) on Feb 21, 2007 at 18:14 UTC | |
by wpahiker (Acolyte) on Feb 21, 2007 at 18:33 UTC | |
by derby (Abbot) on Feb 21, 2007 at 18:48 UTC | |
by wpahiker (Acolyte) on Feb 21, 2007 at 18:53 UTC | |
|