Leser: 2
![]() |
![]() |
4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
for ($i=1; $i < $rs_anzahl+1; $i++) {
$sql=qq{select count(researchfront_$i.rec_id) as rec_nr, item
from countries, par_add, add_rec, researchfront_$i
where par_add.cou_id=countries.cou_id and par_add.add_id = add_rec.add_id
and add_rec.rec_id=researchfront_$i.rec_id group by item order by rec_nr desc};
$sth=$dbh->prepare($sql);
$sth->execute();
#print"SQL=$sql\n";
while (@ary=$sth->fetchrow_array) {
print "$ary[0]\t$ary[1]\t $i\n";
$sql=qq{insert into laender_index (rec_nr, land, rs_nr) values ('$ary[0]',
'$ary[1]', '$i')};
$sth=$dbh->prepare($sql);
$sth->execute();
}
print "nächstes rs:\n";
}
... or die "Error: $DBI::errstr\n";
![]() |
![]() |
4 Einträge, 1 Seite |