need help breaking down data

[veteq]

I am retrieving data from a remote database....

Code:____________________________________________________

while (@data = $sth->fetchrow_array())
{
print "@data[0]\t\t@data[1]\t\t@data[2]\n";
}

_________________________________________________________

this is the code and it works but I need to break it down further, right now @data[0] contains 10 records, I need to move that data to a different array where
item[0] = 1st record of @data[0]
item[1] = 2nd record of @data[0]
...
item[10] = 10th record of @data[0]

so I can manipulate the data,


any help would be greatly apreciated

veteq

 

[veteq]

while (@data = $sth->fetchrow_array())
{
$usrloadid = $data[0];
$usrwsku = $data[1];
$usrlocation = $data[2];

@keeper[$kounter]=$usrloadid;
$kounter +=1;
};


I managed to load the data to an array this way but there must be a cleaner way.....

any thoughts....thank you

 

[rharsh]

Needs a bit of clarification: what does @data[0] look like? How are the records delimited?

You'll probably end up using the split function.

 

[veteq]

Sorry about that,

I am connecting to an Oracle db and retrieving the data through a Select stmt

This is how the code is looking but I am looking for a better way to do it

my $sth = $dbh->prepare('select OPID, PASSWD, EMPNUM from EMPINFO');
--------------------------------------------------------
--------------------------------------------------------
while (@data = $sth->fetchrow_array())
{
@arrayloadid[$kounter] =$data[0];
@arraywsku[$kounter] =$data[1];
@arraylocation[$kounter] =$data[2];
$kounter +=1;
};

 

[PaulTEG]

my @keeper;
while ($usrloadid, $usrwsku,$usrlocation) = $sth->fetchrow_array()) {
 $keeper[$kounter]=$usrloadid;
 $kounter++;
}

This should work, in theory at least

--Paul


Nancy Griffith - songstress extraordinaire,
and composer of the snipers anthem "From a distance ...

 

[veteq]

thank you Paul, I will try it tomorrow


Veteq

 

[veteq]

worked great

thank you