Perl Array Question

[Theuerkorn Johannes]

Hi there, i have (a probably simple) Question on Arrays:

I want to get some Data out of my SQL Databas. I try using the same Query not only 
once and put the collected data in diffrent Arrays.


for (my $i=0;$i<= $count_SNR_LOG_data;$i++){
        print "$i\n";
        my $sth_RACT_LOG = $dbh->prepare ("select KEY_SNR,DRAWING_RE,RCODE_ID from 
RACT_LOG where KEY_SNR='$KEY_SNR_SNR_LOG[$i]';");

        $sth_RACT_LOG->execute ||
                 die "Kann Abfrage sth_RACT_LOG nicht ausfuehren: $DBI::errstr\n";

        while (my @RACT_LOG_data=$sth_RACT_LOG->fetchrow_array){
                
                $count_RACT_LOG_data++;
                push our @KEY_SNR_RACT_LOG[$i], $RACT_LOG_data[0];
                push our @DRAWING_RE_RACT_LOG[$i], $RACT_LOG_data[1];
                push our @RCODE_ID_RACT_LOG[$i], $RACT_LOG_data[2];
}

Thats how I try to get data out of my Arrays...

for (my $i=0;$i<=$count_SNR_LOG_DATA,$i++){
        for (my $u=0;$u<=$count_RACT_LOG_data;$u++){
                print "$KEY_SNR_RACT_LOG[$i][$u]\n";
                print "$DRAWING_RE_RACT_LOG[$i][$u]\n";
                print "$RCODE_ID_RACT_LOG[$i][$u]\n";
        }
}

But this isnt working at all.

Any suggestions are welcome..

Greetings Joe

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]