源码文件
#!/usr/bin/perl -w use strict; sub decode ($$) { my $a = shift; my $b = shift; die if ($a3); die if ($b3…
DECODE是Oracle公司独家提供的功能(ps:informix数据库也提供该函数),它是一个功能很强的函数。它虽然不是SQL的标准,但对于性能非常有用。其他的数据库供应商还不能提供类似DECODE的功能,甚至有的数据库的供应商批评Oracle的SQL不标准。实际上,这种批评…
#!/usr/bin/perl -w use strict; sub decode ($$) { my $a = shift; my $b = shift; die if ($a3); die if ($b3…