#!/usr/bin/perl
use strict;
use DBIx::SimplePerl;
my $sice;
my $rc;
my $dbname = sprintf "DBIx-SimplePerl.%i.db",$$;
$sice->db_open(
'dsn' => "dbi:SQLite:dbname=".$dbname,
'dbuser' => "",
'dbpass' => ""
);
$rc = $sice->db_create_table(
table=>"test1",
columns=>{
name => "varchar(30)",
number=> "integer",
fp => "number"
}
);
if (defined($rc->{success}))
{
printf "created table\n";
}
else
{
die("SQLite db_create_table =".$dbname);
exit;
}
$sice->db_close;