#!/usr/pkg/bin/perl use lib qw(lib lib/site_perl); use strict; use DBI; use CGI qw(:standard); my $query = new CGI; print $query->header; print "\n"; my $haveFileSpec = eval { require File::Spec }; #my $table_dir = File::Spec->catdir(File::Spec->curdir()); my $table_dir="/arpa/ag/e/edgock/html/travel/pics"; my $dbh = DBI->connect("DBI:CSV:f_dir=$table_dir") or die "Cannot connect: " . $DBI::errstr; my($sth); print "$table_dir\n"; $sth = $dbh->prepare("SELECT id FROM images"); $sth->execute() or die "Cannot execute: " . $sth->errstr( ); print "$table_dir\n"; my($id); # $sth->bind_columns(undef,\$id); my @row; while (@row = $sth->fetchrow_array( )) { print join(",", @row) . "
\n"; } $sth->finish( ); $dbh->disconnect( ); print "";