戻る

プログラムで各テーブルを個別に読む

0001: ###################################################################
0002: # プログラムが自前で順次4つのテーブルを読む
0003: my($t1)=&Time::HiRes::time();
0004: my($trans);
0005: &startTransaction(\$DB, \$trans);
0006: my(%khash)=(SPECIESJPN=>$pvalue{WAMEI});
0007: my(%shash)=&selectOneLine(\$trans, \ "SPECIES", \%khash);
0008: %khash=(GENUSNAME=>$shash{GENUSNAME});
0009: my(%ghash)=&selectOneLine(\$trans, \ "GENUS", \%khash);
0010: %khash=(FAMILYNAME=>$ghash{FAMILYNAME});
0011: my(%fhash)=&selectOneLine(\$trans, \ "FAMILY", \%khash);
0012: %khash=(ORDERNAME=>$fhash{ORDERNAME});
0013: my(%ohash)=&selectOneLine(\$trans, \ "ORDERTAB", \%khash);
0014: &commitTransaction(\$trans);
0015: print("fetch by program ---");
0016: my($c)=0;
0017: if (%shash){
0018:     $c++;
0019: }
0020: my($t2)=&Time::HiRes::time();
0021: printf("Select:%4d rows Elapsed:%8.3f msec\n", $c, ($t2-$t1)*1000);

この HTML を検査する。( XHTML 1.0 Strict で書かれています )
Another HTML Lint Gateway ( Mirrored by htmllint.oosato.org )