例如
<%perl>
sub aaaaa(a,b,c){
char(12) d;
xxxxx
return(d);
};
my $sql = <<"SQL";
declare
@rtn_dt char(12)
select id,name,score,
case
@rtn_dt = aaaaa(id,name,score);
/上面这句话大体意思是想写成这样,求教大神这么写对么,方法aaaaa()被调用的话,具体怎么写,我这样写不对的话,具体应该怎么改,谢谢,如果对的回答我会及时认可回答的。谢谢了,在线等。/
END AS 'Change Date',
SQL
from table
where xxxxx
...
</%perl>