#!/usr/local/bin/perl -w
my
(
$database
) =
"asademo"
;
my
(
$data_source
) =
"DBI:ASAny:$database"
;
my
(
$username
) =
"UID=dba;PWD=sql;ENG=asademo"
;
my
(
$sel_statement
) =
"SELECT id, fname, lname FROM customer"
;
my
(
$dbh
) =
&db_connect
(
$data_source
,
$username
,
'na'
);
&db_query
(
$sel_statement
,
$dbh
);
$dbh
->disconnect;
exit
(0);
sub
db_connect {
my
(
$source
,
$user
,
$pass
) =
@_
;
my
(
$dbh
) = DBI->
connect
(
$source
,
$user
,
$pass
);
return
(
$dbh
);
}
sub
db_query {
my
(
$sel
,
$h
) =
@_
;
my
(
$row
,
$sth
) =
undef
;
$sth
=
$h
->prepare(
$sel
);
$sth
->execute;
print
"Names: @{$sth->{NAME}}\n"
;
print
"Fields: $sth->{NUM_OF_FIELDS}\n"
;
print
"Params: $sth->{NUM_OF_PARAMS}\n"
;
print
"\nFirst Name\tLast_name\tTitle\n"
;
while
(
$row
=
$sth
->fetch) {
print
"@$row[0]\t@$row[1]\t\t@$row[2]\n"
;
}
$sth
->finish;
}