Join 到頭暈怎麼辦？

如果您看到一個很長的 SQL join 例如：

SELECT
*
FROM
 mtl_parameters ship_from_org
,hz_cust_site_uses_all ship_su
,hz_party_sites ship_ps
,hz_locations ship_loc
,hz_cust_acct_sites_all ship_cas
,hz_cust_site_uses_all bill_su
,hz_party_sites bill_ps
,hz_locations bill_loc
,hz_cust_acct_sites_all bill_cas
,hz_parties party
,hz_cust_accounts cust_acct
,ra_terms_tl term
,oe_order_headers h
,hz_cust_account_roles sold_roles
,hz_parties sold_party
,hz_org_contacts sold_cont
,hz_party_relationships sold_rel
,hz_cust_account_roles ship_roles
,hz_parties ship_party
,hz_org_contacts ship_cont
,hz_party_relationships ship_rel
,hz_cust_account_roles invoice_roles
,hz_parties invoice_party
,hz_org_contacts invoice_cont
,hz_party_relationships invoice_rel
,fnd_currencies fndcur
,oe_transaction_types_tl ot
,qp_list_headers_tl pl
,ra_rules invrule
,ra_rules accrule 
WHERE
 h.order_type_id = ot.transaction_type_id 
AND ot.language = userenv('LANG') 
AND h.price_list_id = pl.list_header_id(+) 
AND pl.language(+) = userenv('LANG') 
AND h.invoicing_rule_id = invrule.rule_id(+) 
AND h.accounting_rule_id = accrule.rule_id(+) 
AND h.payment_term_id = term.term_id(+) 
AND TERM.Language(+) =userenv('LANG') 
AND h.transactional_curr_code = fndcur.currency_code 
AND h.sold_to_org_id = cust_acct.cust_account_id(+) 
AND CUST_ACCT.PARTY_ID = PARTY.PARTY_ID(+) 
AND h.ship_from_org_id = ship_from_org.organization_id (+) 
AND h.ship_to_org_id = ship_su.site_use_id(+) 
AND ship_su.cust_acct_site_id= ship_cas.cust_acct_site_id(+) 
AND ship_cas.party_site_id = ship_ps.party_site_id(+) 
AND ship_loc.location_id(+) = ship_ps.location_id 
AND h.invoice_to_org_id = bill_su.site_use_id(+) 
AND bill_su.cust_acct_site_id= bill_cas.cust_acct_site_id(+) 
AND bill_cas.party_site_id = bill_ps.party_site_id(+) 
AND bill_loc.location_id(+) = bill_ps.location_id 
AND h.sold_to_contact_id = sold_roles.cust_account_role_id(+) 
AND sold_roles.party_id = sold_rel.party_id(+) 
AND sold_roles.role_type(+) = 'CONTACT' 
AND sold_cont.party_relationship_id(+)= sold_rel.party_relationship_id 
AND sold_rel.subject_id = sold_party.party_id(+) 
AND h.ship_to_contact_id = ship_roles.cust_account_role_id(+) 
AND ship_roles.party_id = ship_rel.party_id(+) 
AND ship_roles.role_type(+) = 'CONTACT' 
AND ship_cont.party_relationship_id(+)= ship_rel.party_relationship_id 
AND ship_rel.subject_id = ship_party.party_id(+) 
AND h.invoice_to_contact_id = invoice_roles.cust_account_role_id(+) 
AND invoice_roles.party_id = invoice_rel.party_id(+) 
AND invoice_roles.role_type(+) = 'CONTACT' 
AND invoice_cont.party_relationship_id(+)=invoice_rel.party_relationship_id 
AND invoice_rel.subject_id = invoice_party.party_id(+)

您可試著把它圖像化，例如：

http://www.hkln.net/blog/2008-05-03/out.png

這幅圖是用 Graphviz 畫的，以下 Perl 程式讀入 SQL 的 WHERE 子句，
然後產生 dot 語言，送給Graphviz 畫圖。
（把 WHERE 子句內容貼在 __DATA__ 之下）

use strict;

my ($text, @predicates);

$text = join '', ;

$text =~ s/\n//g; 

@predicates = split /and/is, $text;

print "digraph G { \n rankdir=LR;\n";

foreach my $predicate (@predicates) {
 my ($left, $right, $left_table, $left_column, $right_table, $right_column);
 my ($left_is_outer, $right_is_outer);
 my ($arrowhead, $arrowtail, $color, $prop);

 $predicate = trim($predicate);

 ($left, $right) = split /=/, $predicate;

 $left = trim($left);
 $right = trim($right);

 if ($left =~ /\(\+\)/ ) {
  $left_is_outer = 1;
 }
 if ($right =~ /\(\+\)/ ) {
  $right_is_outer = 1;
 }

 ($left_table, $left_column) = split /\./, $left;
 ($right_table, $right_column) = split /\./, $right;


 if ($right_column ne '') {
  $right_table = lc( $right_table );
 }
 if ($left_column ne '') {
  $left_table = lc( $left_table );
 }

 $arrowhead = 'none';
 $arrowtail = 'none';
 $color = 'black';

 if ($left_is_outer) {
  $arrowtail = 'odot';
  $color = 'red';
 }
 if ($right_is_outer) {
  $arrowhead = 'odot';
  $color = 'red';

 }

 $prop = qq{arrowhead=$arrowhead,arrowtail=$arrowtail, color=$color, label="$predicate"};

 print qq{ "$left_table"\t->\t"$right_table"\t[$prop] ; \n}
}


print "}";


sub trim
{
 my $string = shift;
 $string =~ s/^\s+//;
 $string =~ s/\s+$//;
 return $string;
}



__DATA__

 h.order_type_id = ot.transaction_type_id 
AND ot.language = userenv('LANG') 

李白教您炒港股技巧

《將進酒》　　　　　　李白

君不見黃河之水天上來，奔流到海不復回？
君不見高堂明鏡悲白髮，朝如青絲暮成雪？
人生得意須盡歡，莫使金樽空對月。
天生我才必有用，千金散盡還復來。
烹羊宰牛且為樂，會須一飲三百杯。
岑夫子，丹丘生，　　　　　　
將進酒，杯莫停。　　　　　　
與君歌一曲，請君為我傾耳聽：
鍾鼓饌玉不足貴，但願長醉不願醒。
古來聖賢皆寂寞，唯有飲者留其名。
陳王昔時宴平樂，斗酒十千恣讙謔。
主人為何言少錢？徑須沽取對君酌。
五花馬、千金裘。呼兒將出換美酒，
與爾同銷萬古愁。


由左上往右下讀：

河明歡，會耳不其謔，
黃堂盡用，傾醉留讙酌，
見高須有樂，我長者恣君酒，
不見意必為生，為願飲千對美，
君不得才且丘停，君但有十取換，
君生我牛丹莫請，唯酒沽出，
岑進歌玉皆平錢。


解譯：

黃河之水光明正大湧向香江，會令耳朵聽不進任何嘲笑的聲音，
把黃金和房產都盡情投入股海，會令人沉醉於歡樂和美酒之中。
每逄港股創新高，都必須有泡沫音樂奏起，這時我的長倉均以低恣態地走貨，
在高位時不洋洋得意的人，最終必定為股災生還者，
飲盡無數個對事情看得太美好的人的血汗錢，
就算你這時還沒有賺到錢的話，也要暫且休息停手，
因為一旦發生股災，就有十多隻好股給你換馬，
如果你最終成為生還者，我的建議就是：就算大摩認為牛市重來，
也不要中它的「請君入貨」之計，唯有繼續走貨沽出才是正途，
因為在大行唱好之前所滲入的日元資金都是平錢。