10 lines
285 B
Perl
10 lines
285 B
Perl
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];
|