blob: b4cf6e163cef47c3bd811a6c5836a39f8dcf4506 (
plain)
1
2
3
4
5
6
7
8
9
|
use DBI;
my $dbfile = 'ksiazki.db';
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbfile", "", "");
my $sth = $dbh->prepare("select * from ksiazki") or die "Nie mozna spreparowac zapytania";
$sth->execute() or die "Nie mozna wykonac zapytania";
print ${$sth->fetchall_arrayref}[1][2];
|
