All,
I have a simple sql process in Perl that returns distinct id's. If I
+load the id's into an array via a $row = $query->fetchrow_array, it d
+umps ALL of the values from the one column into arry index '0' / $ro
+w[0]. Is there a way to read in / fetch a distinct column of values
+from a query and place each element / item in a different array index
+....$row[0],$row[1],.....$row[n]! The data is currently in $alignmen
+t. I can load the data into an array and it is fine.
Query Return:
i.e. $alignment = 'A01','B22','C99',....'nth'.
$row[0] = 'A01', $row[1] = 'B22', $row[2] = 'C99'...$row[n]
Finally, I am doing this to pass those id's to my Perl adn Sql code.
+This process will keep me from setting up several perl processes for
+the same thing. Please help....
##################################
#
# Connect to Oracle database.
#
###################################
my $connection = DBI->connect('dbi:Oracle:xxxx','xxxx','xxxx',)
|| die "Database connection not made: $DBI::errstr";
############################
#
# Set up Query for Store
#
############################
my $stmt_1 = "select alignment from rd_n_dm_list";
############################
#
# Prepare Query
#
############################
my $query = $connection->prepare($stmt_1);
############################
#
# Execute Query
#
############################
$query->execute() or die $connection->errstr;