http://www.perlmonks.org?node_id=723517

cocl04 has asked for the wisdom of the Perl Monks concerning the following question:

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;