戻る

VIEW 経由で複数行を読む

0001: ####################################################################
0002: # ORDERTAB,FAMILY,GENUS,SPECIES が JOIN された VIEW 経由で DB を読む
0003: my($t1)=&Time::HiRes::time();
0004: my($trans);
0005: &startTransaction(\$DB, \$trans);
0006: my(%khash);
0007: if ($pvalue{FAMLY}=~/[a-z]/){
0008:     %khash=(FAMILYNAME=>$pvalue{FAMLY});
0009: }else{
0010:     %khash=(FAMILYJPN=>$pvalue{FAMLY});
0011: }
0012: my($state)=&selectRows(\$trans, \ "VJOIN_SGFO", \%khash);
0013: my(%hash);
0014: my($c)=0;
0015: print("via view to join ---");
0016: while ($state->fetch(\%hash)==0){
0017:     $c++;
0018: }
0019: &commitTransaction(\$trans);
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 )