Oracle 中文转拼音

   转载的以前的一个牛人写的，自己工作中也用的到。

SQL> select pinyin.f_get_pinyin('中国') from dual;
PINYIN.F_GET_PINYIN('中国')
--------------------------------------------------
zhong guo

执行的脚本：

create or replace package pinyin is

  -- Author  : Sam Li
  -- Created : 2008-8-14 9:59:43
  -- Purpose : 根据汉字获取拼音  
  
  -- Public constant declarations
  l_str_1 CONSTANT VARCHAR2(4000):='啊阿埃挨哎唉哀皑癌蔼矮艾碍爱隘鞍氨安俺按暗岸胺案肮昂盎凹敖熬翱袄傲奥懊澳芭捌扒叭吧笆八疤巴拔跋靶把耙坝霸罢爸白柏百摆佰败拜稗斑班搬扳般颁板版扮拌伴瓣半办绊邦帮梆榜膀绑棒磅蚌镑傍谤苞胞包褒剥薄雹保堡饱宝抱报暴豹鲍爆杯碑悲卑北辈背贝钡倍狈备惫焙被奔苯本笨崩绷甭泵蹦迸逼鼻比鄙笔彼碧蓖蔽毕毙毖币庇痹闭敝弊必辟壁臂避陛鞭边编贬扁便变卞辨辩辫遍标彪膘表鳖憋别瘪彬斌濒滨宾摈兵冰柄丙秉饼炳病并玻菠播拨钵波博勃搏铂箔伯帛舶脖膊渤泊驳捕卜哺补埠不布步簿部怖擦猜裁材才财睬踩采彩菜蔡餐参蚕残惭惨灿苍舱仓沧藏操糙槽曹草厕策侧册测层蹭插叉茬茶查碴搽察岔差诧拆柴豺搀掺蝉馋谗缠铲产阐颤昌猖场尝常长偿肠厂敞畅唱倡超抄钞朝嘲潮巢吵炒车扯撤掣彻澈郴臣辰尘晨忱沉陈趁衬撑称城橙成呈乘程惩澄诚承逞骋秤吃痴持匙池迟弛驰耻齿侈尺赤翅斥炽充冲虫崇宠抽酬畴踌稠愁筹仇绸瞅丑臭初出橱厨躇锄雏滁除楚础储矗搐触处揣川穿椽传船喘串疮窗幢床闯创吹炊捶锤垂春椿醇唇淳纯蠢戳绰疵茨磁雌辞慈瓷词此刺赐次聪葱囱匆从丛凑粗醋簇促蹿篡窜摧崔催脆瘁粹淬翠村存寸磋撮搓措挫错搭达答瘩打大呆歹傣戴带殆代贷袋待逮怠耽担丹单郸掸胆旦氮但惮淡诞弹蛋当挡党荡档刀捣蹈倒岛祷导到稻悼道盗德得的蹬灯登等瞪凳邓堤低滴迪敌笛狄涤翟嫡抵底地蒂第帝弟递缔颠掂滇碘点典靛垫电佃甸店惦奠淀殿碉叼雕凋刁掉吊钓调跌爹碟蝶迭谍叠丁盯叮钉顶鼎锭定订丢东冬董懂动栋侗恫冻洞兜抖斗陡豆逗痘都督毒犊独读堵睹赌杜镀肚度渡妒端短锻段断缎堆兑队对墩吨蹲敦顿囤钝盾遁掇哆多夺垛躲朵跺舵剁惰堕蛾峨鹅俄额讹娥恶厄扼遏鄂饿恩而儿耳尔饵洱二贰发罚筏伐乏阀法珐藩帆番翻樊矾钒繁凡烦反返范贩犯饭泛坊芳方肪房防妨仿访纺放菲非啡飞肥匪诽吠肺废沸费芬酚吩氛分纷坟焚汾粉奋份忿愤粪丰封枫蜂峰锋风疯烽逢冯缝讽奉凤佛否夫敷肤孵扶拂辐幅氟符伏俘服浮涪福袱弗甫抚辅俯釜斧脯腑府腐赴副覆赋复傅付阜父腹负富讣附妇缚咐噶嘎该改概钙盖溉干甘杆柑竿肝赶感秆敢赣冈刚钢缸肛纲岗港杠篙皋高膏羔糕搞镐稿告哥歌搁戈鸽胳疙割革葛格蛤阁隔铬个各给根跟耕更庚羹埂耿梗工攻功恭龚供躬公宫弓巩汞拱贡共钩勾沟苟狗垢构购够辜菇咕箍估沽孤姑鼓古蛊骨谷股故顾固雇刮瓜剐寡挂褂乖拐怪棺关官冠观管馆罐惯灌贯光广逛瑰规圭硅归龟闺轨鬼诡癸桂柜跪贵刽辊滚棍锅郭国果裹过哈骸孩海氦亥害骇酣憨邯韩含涵寒函喊罕翰撼捍旱憾悍焊汗汉夯杭航壕嚎豪毫郝好耗号浩呵喝荷菏核禾和何合盒貉阂河涸赫褐鹤贺嘿黑痕很狠恨哼亨横衡恒轰哄烘虹鸿洪宏弘红喉侯猴吼厚候后呼乎忽瑚壶葫胡蝴狐糊湖弧虎唬护互沪户花哗华猾滑画划化话槐徊怀淮坏欢环桓还缓换患唤痪豢焕涣宦幻荒慌黄磺蝗簧皇凰惶煌晃幌恍谎灰挥辉徽恢蛔回毁悔慧卉惠晦贿秽会烩汇讳诲绘荤昏婚魂浑混豁活伙火获或惑霍货祸击圾基机畸稽积箕肌饥迹激讥鸡姬绩缉吉极棘辑籍集及急疾汲即嫉级挤几脊己蓟技冀季伎祭剂悸济寄寂计记既忌际妓继纪嘉枷夹佳家加荚颊贾甲钾假稼价架驾嫁歼监坚尖笺间煎兼肩艰奸缄茧检柬碱碱拣捡简俭剪减荐槛鉴践贱见键箭件健舰剑饯渐溅涧建僵姜将浆江疆蒋桨奖讲匠酱降蕉椒礁焦胶交郊浇骄娇嚼搅铰矫侥脚狡角饺缴绞剿教酵轿较叫窖揭接皆秸街阶截劫节桔杰捷睫竭洁结解姐戒藉芥界借介疥诫届巾筋斤金今津襟紧锦仅谨进靳晋禁近烬浸尽劲荆兢茎睛晶鲸京惊精粳经井警景颈静境敬镜径痉靖竟竞净炯窘揪究纠玖韭久灸九酒厩救旧臼舅咎就疚鞠拘狙疽居驹菊局咀矩举沮聚拒据巨具距踞锯俱句惧炬剧捐鹃娟倦眷卷绢撅攫抉掘倔爵觉决诀绝均菌钧军君峻俊竣浚郡骏喀咖卡咯开揩楷凯慨刊堪勘坎砍看康慷糠扛抗亢炕考拷烤靠坷苛柯棵磕颗科壳咳可渴克刻客课肯啃垦恳坑吭空恐孔控抠口扣寇枯哭窟苦酷库裤夸垮挎跨胯块筷侩快宽款匡筐狂框矿眶旷况亏盔岿窥葵奎魁傀馈愧溃坤昆捆困括扩廓阔垃拉喇蜡腊辣啦莱来赖蓝婪栏拦篮阑兰澜谰揽览懒缆烂滥琅榔狼廊郎朗浪捞劳牢老佬姥酪烙涝勒乐雷镭蕾磊累儡垒擂肋类泪棱楞冷厘梨犁黎篱狸离漓理李里鲤礼莉荔吏栗丽厉励砾历利僳例俐痢立粒沥隶力璃哩俩联莲连镰廉怜涟帘敛脸链恋炼练粮凉梁粱良两辆量晾亮谅撩聊僚疗燎寥辽潦了撂镣廖料列裂烈劣猎琳林磷霖临邻鳞淋凛赁吝拎玲菱零龄铃伶羚凌灵陵岭领另令溜琉榴硫馏留刘瘤流柳六龙聋咙笼窿隆垄拢陇楼娄搂篓漏陋芦卢颅庐炉掳卤虏鲁麓碌露路赂鹿潞禄录陆戮驴吕铝侣旅履屡缕虑氯律率滤绿峦挛孪滦卵乱掠略抡轮伦仑沦纶论萝螺罗逻锣箩骡裸落洛骆络妈麻玛码蚂马骂嘛吗埋买麦卖迈脉瞒馒蛮满蔓曼慢漫谩芒茫盲氓忙莽猫茅锚毛矛铆卯茂冒帽貌贸么玫枚梅酶霉煤没眉媒镁每美昧寐妹媚门闷们萌蒙檬盟锰猛梦孟眯醚靡糜迷谜弥米秘觅泌蜜密幂棉眠绵冕免勉娩缅面苗描瞄藐秒渺庙妙蔑灭民抿皿敏悯闽明螟鸣铭名'; 
  l_str_2 CONSTANT VARCHAR2(4000):='命谬摸摹蘑模膜磨摩魔抹末莫墨默沫漠寞陌谋牟某拇牡亩姆母墓暮幕募慕木目睦牧穆拿哪呐钠那娜纳氖乃奶耐奈南男难囊挠脑恼闹淖呢馁内嫩能妮霓倪泥尼拟你匿腻逆溺蔫拈年碾撵捻念娘酿鸟尿捏聂孽啮镊镍涅您柠狞凝宁拧泞牛扭钮纽脓浓农弄奴努怒女暖虐疟挪懦糯诺哦欧鸥殴藕呕偶沤啪趴爬帕怕琶拍排牌徘湃派攀潘盘磐盼畔判叛乓庞旁耪胖抛咆刨炮袍跑泡呸胚培裴赔陪配佩沛喷盆砰抨烹澎彭蓬棚硼篷膨朋鹏捧碰坯砒霹批披劈琵毗啤脾疲皮匹痞僻屁譬篇偏片骗飘漂瓢票撇瞥拼频贫品聘乒坪苹萍平凭瓶评屏坡泼颇婆破魄迫粕剖扑铺仆莆葡菩蒲埔朴圃普浦谱曝瀑期欺栖戚妻七凄漆柒沏其棋奇歧畦崎脐齐旗祈祁骑起岂乞企启契砌器气迄弃汽泣讫掐洽牵扦钎铅千迁签仟谦乾黔钱钳前潜遣浅谴堑嵌欠歉枪呛腔羌墙蔷强抢橇锹敲悄桥瞧乔侨巧鞘撬翘峭俏窍切茄且怯窃钦侵亲秦琴勤芹擒禽寝沁青轻氢倾卿清擎晴氰情顷请庆琼穷秋丘邱球求囚酋泅趋区蛆曲躯屈驱渠取娶龋趣去圈颧权醛泉全痊拳犬券劝缺炔瘸却鹊榷确雀裙群然燃冉染瓤壤攘嚷让饶扰绕惹热壬仁人忍韧任认刃妊纫扔仍日戎茸蓉荣融熔溶容绒冗揉柔肉茹蠕儒孺如辱乳汝入褥软阮蕊瑞锐闰润若弱撒洒萨腮鳃塞赛三叁伞散桑嗓丧搔骚扫嫂瑟色涩森僧莎砂杀刹沙纱傻啥煞筛晒珊苫杉山删煽衫闪陕擅赡膳善汕扇缮墒伤商赏晌上尚裳梢捎稍烧芍勺韶少哨邵绍奢赊蛇舌舍赦摄射慑涉社设砷申呻伸身深娠绅神沈审婶甚肾慎渗声生甥牲升绳省盛剩胜圣师失狮施湿诗尸虱十石拾时什食蚀实识史矢使屎驶始式示士世柿事拭誓逝势是嗜噬适仕侍释饰氏市恃室视试收手首守寿授售受瘦兽蔬枢梳殊抒输叔舒淑疏书赎孰熟薯暑曙署蜀黍鼠属术述树束戍竖墅庶数漱恕刷耍摔衰甩帅栓拴霜双爽谁水睡税吮瞬顺舜说硕朔烁斯撕嘶思私司丝死肆寺嗣四伺似饲巳松耸怂颂送宋讼诵搜艘擞嗽苏酥俗素速粟僳塑溯宿诉肃酸蒜算虽隋随绥髓碎岁穗遂隧祟孙损笋蓑梭唆缩琐索锁所塌他它她塔獭挞蹋踏胎苔抬台泰酞太态汰坍摊贪瘫滩坛檀痰潭谭谈坦毯袒碳探叹炭汤塘搪堂棠膛唐糖倘躺淌趟烫掏涛滔绦萄桃逃淘陶讨套特藤腾疼誊梯剔踢锑提题蹄啼体替嚏惕涕剃屉天添填田甜恬舔腆挑条迢眺跳贴铁帖厅听烃汀廷停亭庭挺艇通桐酮瞳同铜彤童桶捅筒统痛偷投头透凸秃突图徒途涂屠土吐兔湍团推颓腿蜕褪退吞屯臀拖托脱鸵陀驮驼椭妥拓唾挖哇蛙洼娃瓦袜歪外豌弯湾玩顽丸烷完碗挽晚皖惋宛婉万腕汪王亡枉网往旺望忘妄威巍微危韦违桅围唯惟为潍维苇萎委伟伪尾纬未蔚味畏胃喂魏位渭谓尉慰卫瘟温蚊文闻纹吻稳紊问嗡翁瓮挝蜗涡窝我斡卧握沃巫呜钨乌污诬屋无芜梧吾吴毋武五捂午舞伍侮坞戊雾晤物勿务悟误昔熙析西硒矽晰嘻吸锡牺稀息希悉膝夕惜熄烯溪汐犀檄袭席习媳喜铣洗系隙戏细瞎虾匣霞辖暇峡侠狭下厦夏吓掀锨先仙鲜纤咸贤衔舷闲涎弦嫌显险现献县腺馅羡宪陷限线相厢镶香箱襄湘乡翔祥详想响享项巷橡像向象萧硝霄削哮嚣销消宵淆晓小孝校肖啸笑效楔些歇蝎鞋协挟携邪斜胁谐写械卸蟹懈泄泻谢屑薪芯锌欣辛新忻心信衅星腥猩惺兴刑型形邢行醒幸杏性姓兄凶胸匈汹雄熊休修羞朽嗅锈秀袖绣墟戌需虚嘘须徐许蓄酗叙旭序畜恤絮婿绪续轩喧宣悬旋玄选癣眩绚靴薛学穴雪血勋熏循旬询寻驯巡殉汛训讯逊迅压押鸦鸭呀丫芽牙蚜崖衙涯雅哑亚讶焉咽阉烟淹盐严研蜒岩延言颜阎炎沿奄掩眼衍演艳堰燕厌砚雁唁彦焰宴谚验殃央鸯秧杨扬佯疡羊洋阳氧仰痒养样漾邀腰妖瑶摇尧遥窑谣姚咬舀药要耀椰噎耶爷野冶也页掖业叶曳腋夜液一壹医揖铱依伊衣颐夷遗移仪胰疑沂宜姨彝椅蚁倚已乙矣以艺抑易邑屹亿役臆逸肄疫亦裔意毅忆义益溢诣议谊译异翼翌绎茵荫因殷音阴姻吟银淫寅饮尹引隐印英樱婴鹰应缨莹萤营荧蝇迎赢盈影颖硬映哟拥佣臃痈庸雍踊蛹咏泳涌永恿勇用幽优悠忧尤由邮铀犹油游酉有友右佑釉诱又幼迂淤于盂榆虞愚舆余俞逾鱼愉渝渔隅予娱雨与屿禹宇语羽玉域芋郁吁遇喻峪御愈欲狱育誉浴寓裕预豫驭鸳渊冤元垣袁原援辕园员圆猿源缘远苑愿怨院曰约越跃钥岳粤月悦阅耘云郧匀陨允运蕴酝晕韵孕匝砸杂栽哉灾宰载再在咱攒暂赞赃脏葬遭糟凿藻枣早澡蚤躁噪造皂灶燥责择则泽贼怎增憎曾赠扎喳渣札轧铡闸眨栅榨咋乍炸诈摘斋宅窄债寨瞻毡詹粘沾盏斩辗崭展蘸栈占战站湛绽樟章彰漳张掌涨杖丈帐账仗胀瘴障招昭找沼赵照罩兆肇召遮折哲蛰辙者锗蔗这浙珍斟真甄砧臻贞针侦枕疹诊震振镇阵蒸挣睁征狰争怔整拯正政帧症郑证芝枝支吱蜘知肢脂汁之织职直植殖执值侄址指止趾只旨纸志挚掷至致置帜峙制智秩稚质炙痔滞治窒中盅忠钟衷终种肿重仲众舟周州洲诌粥轴肘帚咒皱宙昼骤珠株蛛朱猪诸诛逐竹烛煮拄瞩嘱主著柱助蛀贮铸筑住注祝驻抓爪拽专砖转撰赚篆桩庄装妆撞壮状椎锥追赘坠缀谆准捉拙卓桌琢茁酌啄着灼浊兹咨资姿滋淄孜紫仔籽滓子自渍字鬃棕踪宗综总纵邹走奏揍租足卒族祖诅阻组钻纂嘴醉最罪尊遵昨左佐柞做作坐座';
  l_str_3 CONSTANT VARCHAR2(4000):='a a ai ai ai ai ai ai ai ai ai ai ai ai ai an an an an an an an an an ang ang ang ao ao ao ao ao ao ao ao ao ba ba ba ba ba ba ba ba ba ba ba ba ba ba ba ba ba ba bai bai bai bai bai bai bai bai ban ban ban ban ban ban ban ban ban ban ban ban ban ban ban bang bang bang bang bang bang bang bang bang bang bang bang bao bao bao bao bao bao bao bao bao bao bao bao bao bao bao bao bao bei bei bei bei bei bei bei bei bei bei bei bei bei bei bei ben ben ben ben beng beng beng beng beng beng bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bi bian bian bian bian bian bian bian bian bian bian bian bian biao biao biao biao bie bie bie bie bin bin bin bin bin bin bing bing bing bing bing bing bing bing bing bo bo bo bo bo bo bo bo bo bo bo bo bo bo bo bo bo bo bo bo bo bu bu bu bu bu bu bu bu bu ca cai cai cai cai cai cai cai cai cai cai cai can can can can can can can cang cang cang cang cang cao cao cao cao cao ce ce ce ce ce ceng ceng cha cha cha cha cha cha cha cha cha cha cha chai chai chai chan chan chan chan chan chan chan chan chan chan chang chang chang chang chang chang chang chang chang chang chang chang chang chao chao chao chao chao chao chao chao chao che che che che che che chen chen chen chen chen chen chen chen chen chen cheng cheng cheng cheng cheng cheng cheng cheng cheng cheng cheng cheng cheng cheng cheng chi chi chi chi chi chi chi chi chi chi chi chi chi chi chi chi chong chong chong chong chong chou chou chou chou chou chou chou chou chou chou chou chou chu chu chu chu chu chu chu chu chu chu chu chu chu chu chu chu chuai chuan chuan chuan chuan chuan chuan chuan chuang chuang chuang chuang chuang chuang chui chui chui chui chui chun chun chun chun chun chun chun chuo chuo ci ci ci ci ci ci ci ci ci ci ci ci cong cong cong cong cong cong cou cu cu cu cu cuan cuan cuan cui cui cui cui cui cui cui cui cun cun cun cuo cuo cuo cuo cuo cuo da da da da da da dai dai dai dai dai dai dai dai dai dai dai dai dan dan dan dan dan dan dan dan dan dan dan dan dan dan dan dang dang dang dang dang dao dao dao dao dao dao dao dao dao dao dao dao de de de deng deng deng deng deng deng deng di di di di di di di di di di di di di di di di di di di dian dian dian dian dian dian dian dian dian dian dian dian dian dian dian dian diao diao diao diao diao diao diao diao diao die die die die die die die ding ding ding ding ding ding ding ding ding diu dong dong dong dong dong dong dong dong dong dong dou dou dou dou dou dou dou du du du du du du du du du du du du du du du duan duan duan duan duan duan dui dui dui dui dun dun dun dun dun dun dun dun dun duo duo duo duo duo duo duo duo duo duo duo duo e e e e e e e e e e e e e en er er er er er er er er fa fa fa fa fa fa fa fa fan fan fan fan fan fan fan fan fan fan fan fan fan fan fan fan fan fang fang fang fang fang fang fang fang fang fang fang fei fei fei fei fei fei fei fei fei fei fei fei fen fen fen fen fen fen fen fen fen fen fen fen fen fen fen feng feng feng feng feng feng feng feng feng feng feng feng feng feng feng fo fou fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu fu ga ga gai gai gai gai gai gai gan gan gan gan gan gan gan gan gan gan gan gang gang gang gang gang gang gang gang gang gao gao gao gao gao gao gao gao gao gao ge ge ge ge ge ge ge ge ge ge ge ge ge ge ge ge ge gei gen gen geng geng geng geng geng geng geng gong gong gong gong gong gong gong gong gong gong gong gong gong gong gong gou gou gou gou gou gou gou gou gou gu gu gu gu gu gu gu gu gu gu gu gu gu gu gu gu gu gu gua gua gua gua gua gua guai guai guai guan guan guan guan guan guan guan guan guan guan guan guang guang guang gui gui gui gui gui gui gui gui gui gui gui gui gui gui gui gui gun gun gun guo guo guo guo guo guo ha hai hai hai hai hai hai hai han han han han han han han han han han han han han han han han han';
  l_str_4 CONSTANT VARCHAR2(4000):='han han hang hang hang hao hao hao hao hao hao hao hao hao he he he he he he he he he he he he he he he he he he hei hei hen hen hen hen heng heng heng heng heng hong hong hong hong hong hong hong hong hong hou hou hou hou hou hou hou hu hu hu hu hu hu hu hu hu hu hu hu hu hu hu hu hu hu hua hua hua hua hua hua hua hua hua huai huai huai huai huai huan huan huan huan huan huan huan huan huan huan huan huan huan huan huang huang huang huang huang huang huang huang huang huang huang huang huang huang hui hui hui hui hui hui hui hui hui hui hui hui hui hui hui hui hui hui hui hui hui hun hun hun hun hun hun huo huo huo huo huo huo huo huo huo huo ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji ji jia jia jia jia jia jia jia jia jia jia jia jia jia jia jia jia jia jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jian jiang jiang jiang jiang jiang jiang jiang jiang jiang jiang jiang jiang jiang jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jiao jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jie jin jin jin jin jin jin jin jin jin jin jin jin jin jin jin jin jin jin jin jin jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jing jiong jiong jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu jiu ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju ju juan juan juan juan juan juan juan jue jue jue jue jue jue jue jue jue jue jun jun jun jun jun jun jun jun jun jun jun ka ka ka ka kai kai kai kai kai kan kan kan kan kan kan kang kang kang kang kang kang kang kao kao kao kao ke ke ke ke ke ke ke ke ke ke ke ke ke ke ke ken ken ken ken keng keng kong kong kong kong kou kou kou kou ku ku ku ku ku ku ku kua kua kua kua kua kuai kuai kuai kuai kuan kuan kuang kuang kuang kuang kuang kuang kuang kuang kui kui kui kui kui kui kui kui kui kui kui kun kun kun kun kuo kuo kuo kuo la la la la la la la lai lai lai lan lan lan lan lan lan lan lan lan lan lan lan lan lan lan lang lang lang lang lang lang lang lao lao lao lao lao lao lao lao lao le le lei lei lei lei lei lei lei lei lei lei lei leng leng leng li li li li li li li li li li li li li li li li li li li li li li li su li li li li li li li li li li lia lian lian lian lian lian lian lian lian lian lian lian lian lian lian liang liang liang liang liang liang liang liang liang liang liang liao liao liao liao liao liao liao liao liao liao liao liao liao lie lie lie lie lie lin lin lin lin lin lin lin lin lin lin lin lin ling ling ling ling ling ling ling ling ling ling ling ling ling ling liu liu liu liu liu liu liu liu liu liu liu long long long long long long long long long lou lou lou lou lou lou lu lu lu lu lu lu lu lu lu lu lu lu lu lu lu lu lu lu lu lu lv lv lv lv lv lv lv lv lv lv lv lv lv lv luan luan luan luan luan luan lue lue lun lun lun lun lun lun lun luo luo luo luo luo luo luo luo luo luo luo luo ma ma ma ma ma ma ma ma ma mai mai mai mai mai mai man man man man man man man man man mang mang mang mang mang mang mao mao mao mao mao mao mao mao mao mao mao mao me mei mei mei mei mei mei mei mei mei mei mei mei mei mei mei mei men men men meng meng meng meng meng meng meng meng mi mi mi mi mi mi mi mi mi mi mi mi mi mi mian mian mian mian mian mian mian mian mian miao miao miao miao miao miao miao miao mie mie min min min min min min ming ming ming ming ming ming miu mo mo mo mo mo mo mo mo mo mo mo mo mo mo mo mo mo mou mou mou mu mu mu mu mu mu mu mu mu mu mu mu mu mu mu na na na na na na na nai nai nai';
  l_str_5 CONSTANT VARCHAR2(4000):='nai nai nan nan nan nang nao nao nao nao nao ne nei nei nen neng ni ni ni ni ni ni ni ni ni ni ni nian nian nian nian nian nian nian niang niang niao niao nie nie nie nie nie nie nie nin ning ning ning ning ning ning niu niu niu niu nong nong nong nong nu nu nu nv nuan nue nue nuo nuo nuo nuo o ou ou ou ou ou ou ou pa pa pa pa pa pa pai pai pai pai pai pai pan pan pan pan pan pan pan pan pang pang pang pang pang pao pao pao pao pao pao pao pei pei pei pei pei pei pei pei pei pen pen peng peng peng peng peng peng peng peng peng peng peng peng peng peng pi pi pi pi pi pi pi pi pi pi pi pi pi pi pi pi pi pian pian pian pian piao piao piao piao pie pie pin pin pin pin pin ping ping ping ping ping ping ping ping ping po po po po po po po po po pu pu pu pu pu pu pu pu pu pu pu pu pu pu pu qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qi qia qia qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qian qiang qiang qiang qiang qiang qiang qiang qiang qiao qiao qiao qiao qiao qiao qiao qiao qiao qiao qiao qiao qiao qiao qiao qie qie qie qie qie qin qin qin qin qin qin qin qin qin qin qin qing qing qing qing qing qing qing qing qing qing qing qing qing qiong qiong qiu qiu qiu qiu qiu qiu qiu qiu qu qu qu qu qu qu qu qu qu qu qu qu qu quan quan quan quan quan quan quan quan quan quan quan que que que que que que que que qun qun ran ran ran ran rang rang rang rang rang rao rao rao re re ren ren ren ren ren ren ren ren ren ren reng reng ri rong rong rong rong rong rong rong rong rong rong rou rou rou ru ru ru ru ru ru ru ru ru ru ruan ruan rui rui rui run run ruo ruo sa sa sa sai sai sai sai san san san san sang sang sang sao sao sao sao se se se sen seng sha sha sha sha sha sha sha sha sha shai shai shan shan shan shan shan shan shan shan shan shan shan shan shan shan shan shan shang shang shang shang shang shang shang shang shao shao shao shao shao shao shao shao shao shao shao she she she she she she she she she she she she shen shen shen shen shen shen shen shen shen shen shen shen shen shen shen shen sheng sheng sheng sheng sheng sheng sheng sheng sheng sheng sheng shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shi shou shou shou shou shou shou shou shou shou shou shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shu shua shua shuai shuai shuai shuai shuan shuan shuang shuang shuang shui shui shui shui shun shun shun shun shuo shuo shuo shuo si si si si si si si si si si si si si si si si song song song song song song song song sou sou sou su su su su su su su su su su su su su suan suan suan sui sui sui sui sui sui sui sui sui sui sui sun sun sun suo suo suo suo suo suo suo suo ta ta ta ta ta ta ta ta ta tai tai tai tai tai tai tai tai tai tan tan tan tan tan tan tan tan tan tan tan tan tan tan tan tan tan tan tang tang tang tang tang tang tang tang tang tang tang tang tang tao tao tao tao tao tao tao tao tao tao tao te teng teng teng teng ti ti ti ti ti ti ti ti ti ti ti ti ti ti ti tian tian tian tian tian tian tian tian tiao tiao tiao tiao tiao tie tie tie ting ting ting ting ting ting ting ting ting ting tong tong tong tong tong tong tong tong tong tong tong tong tong tou tou tou tou tu tu tu tu tu tu tu tu tu tu tu tuan tuan tui tui tui tui tui tui tun tun tun tuo tuo tuo tuo tuo tuo tuo tuo tuo tuo tuo wa wa wa wa wa wa wa wai wai wan wan wan wan wan wan wan wan wan wan wan wan wan wan wan wan wan wang wang wang wang wang wang wang wang wang wang wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wei wen wen wen wen wen wen wen wen wen wen weng weng';
  l_str_6 CONSTANT VARCHAR2(4000):='weng wo wo wo wo wo wo wo wo wo wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu wu xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xi xia xia xia xia xia xia xia xia xia xia xia xia xia xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xian xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiang xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xiao xie xie xie xie xie xie xie xie xie xie xie xie xie xie xie xie xie xie xie xie xie xin xin xin xin xin xin xin xin xin xin xing xing xing xing xing xing xing xing xing xing xing xing xing xing xing xiong xiong xiong xiong xiong xiong xiong xiu xiu xiu xiu xiu xiu xiu xiu xiu xu xu xu xu xu xu xu xu xu xu xu xu xu xu xu xu xu xu xu xuan xuan xuan xuan xuan xuan xuan xuan xuan xuan xue xue xue xue xue xue xun xun xun xun xun xun xun xun xun xun xun xun xun xun ya ya ya ya ya ya ya ya ya ya ya ya ya ya ya ya yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yan yang yang yang yang yang yang yang yang yang yang yang yang yang yang yang yang yang yao yao yao yao yao yao yao yao yao yao yao yao yao yao yao ye ye ye ye ye ye ye ye ye ye ye ye ye ye ye yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yi yin yin yin yin yin yin yin yin yin yin yin yin yin yin yin yin ying ying ying ying ying ying ying ying ying ying ying ying ying ying ying ying ying ying yo yong yong yong yong yong yong yong yong yong yong yong yong yong yong yong you you you you you you you you you you you you you you you you you you you you you yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yu yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yuan yue yue yue yue yue yue yue yue yue yue yun yun yun yun yun yun yun yun yun yun yun yun za za za zai zai zai zai zai zai zai zan zan zan zan zang zang zang zao zao zao zao zao zao zao zao zao zao zao zao zao zao ze ze ze ze zei zen zeng zeng zeng zeng zha zha zha zha zha zha zha zha zha zha zha zha zha zha zhai zhai zhai zhai zhai zhai zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhan zhang zhang zhang zhang zhang zhang zhang zhang zhang zhang zhang zhang zhang zhang zhang zhao zhao zhao zhao zhao zhao zhao zhao zhao zhao zhe zhe zhe zhe zhe zhe zhe zhe zhe zhe zhen zhen zhen zhen zhen zhen zhen zhen zhen zhen zhen zhen zhen zhen zhen zhen zheng zheng zheng zheng zheng zheng zheng zheng zheng zheng zheng zheng zheng zheng zheng zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhi zhong zhong zhong zhong zhong zhong zhong zhong zhong zhong zhong zhou zhou zhou zhou zhou zhou zhou zhou zhou zhou zhou zhou zhou zhou zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhu zhua zhua zhuai zhuan zhuan zhuan zhuan zhuan zhuan zhuang zhuang zhuang zhuang zhuang zhuang zhuang zhui zhui zhui zhui zhui zhui zhun zhun zhuo zhuo zhuo zhuo zhuo zhuo zhuo zhuo zhuo zhuo zhuo zi zi zi zi zi zi zi zi zi zi zi zi zi zi zi zong zong zong zong zong zong zong zou zou zou zou zu zu zu zu zu zu zu zu zuan zuan zui zui zui zui zun zun zuo zuo zuo zuo zuo zuo zuo zuo';  


  -- Public function and procedure declarations 
  FUNCTION f_get_sequence_string(p_str VARCHAR2,p_separator VARCHAR2,p_sequence VARCHAR2) RETURN VARCHAR2;
  FUNCTION f_get_single_pinyin(p_chinese VARCHAR2) RETURN VARCHAR2;
  FUNCTION f_get_pinyin(p_chinese VARCHAR2) RETURN VARCHAR2;


end pinyin;
/




create or replace package body pinyin is
  -- Function and procedure implementations
  function f_get_sequence_string(p_str VARCHAR2,p_separator VARCHAR2,p_sequence VARCHAR2) return VARCHAR2 is
    l_count  NUMBER;
    l_len  NUMBER;
    l_return  VARCHAR2(2000);
  begin
    SELECT LENGTH(p_str) - LENGTH(REPLACE(p_str,p_separator)) INTO l_count FROM dual;


    IF l_count > 0 THEN 
       IF p_sequence > l_count+1 THEN 
          l_return:='';
       ELSE 
          IF p_sequence = 1 THEN 
             SELECT SUBSTR(p_str,1,INSTR(p_str,p_separator)-1) INTO l_return FROM dual;
    ELSE 
       SELECT INSTR(p_str,p_separator,1,p_sequence) INTO l_len FROM dual;
       IF l_len = 0 THEN 
                SELECT SUBSTR(p_str,INSTR(p_str,p_separator,1,p_sequence-1)+1) INTO l_return FROM dual;
       ELSE 
                SELECT SUBSTR(p_str,INSTR(p_str,p_separator,1,p_sequence-1)+1,INSTR(p_str,p_separator,1,p_sequence)-INSTR(p_str,p_separator,1,p_sequence-1)-1) INTO l_return FROM dual;
        END IF;
     END IF;
       END IF;
    ELSE 
       l_return:=p_str;
    END IF;


    RETURN l_return;
  end;


  function f_get_single_pinyin(p_chinese VARCHAR2) return VARCHAR2 is
    l_tmp  VARCHAR2(200);
    l_len  NUMBER:=0;
    l_flag  NUMBER:=0;  --标志位，代表已经检索到中文字符
    l_location_1  NUMBER:=0;
    l_location_2  NUMBER:=0;
    l_location_3  NUMBER:=0;
    l_return  VARCHAR2(200);
  begin
    SELECT NVL(LENGTH(l_str_1),0) INTO l_len FROM dual;
    FOR i IN 1..l_len LOOP 
       l_location_1:=l_location_1+1;
       SELECT SUBSTR(l_str_1,i,1) INTO l_tmp FROM dual;
       IF p_chinese = l_tmp THEN 
          l_flag:=1;
       END IF;
       EXIT WHEN p_chinese = l_tmp;
    END LOOP;


    IF l_flag = 0 THEN 
       SELECT NVL(LENGTH(l_str_2),0) INTO l_len FROM dual;
       FOR i IN 1..l_len LOOP 
          l_location_1:=l_location_1+1;
          SELECT SUBSTR(l_str_2,i,1) INTO l_tmp FROM dual;
          IF p_chinese = l_tmp THEN 
            l_flag:=1;
          END IF;
          EXIT WHEN p_chinese = l_tmp;
       END LOOP;
    END IF;


    IF l_flag = 0 THEN 
       l_return:='not found';
    ELSE 
       l_flag:=0;
       SELECT LENGTH(l_str_3)-LENGTH(REPLACE(l_str_3,' ')) + 1 INTO l_len FROM dual;
       FOR i IN 1..l_len LOOP 
          l_location_2:=l_location_2+1;
    l_location_3:=l_location_3+1;
   IF l_location_1 = l_location_2 THEN 
            l_flag:=1;
   END IF;
         EXIT WHEN l_location_1 = l_location_2;
      END LOOP;
      IF l_flag = 0 THEN 
         l_location_3:=0;
         SELECT LENGTH(l_str_4)-LENGTH(REPLACE(l_str_4,' ')) + 1 INTO l_len FROM dual;
         FOR i IN 1..l_len LOOP 
            l_location_2:=l_location_2+1;
      l_location_3:=l_location_3+1;
      IF l_location_1 = l_location_2 THEN 
               l_flag:=1;
      END IF;
            EXIT WHEN l_location_1 = l_location_2;
         END LOOP;
         IF l_flag = 0 THEN 
      l_location_3:=0;
            SELECT LENGTH(l_str_5)-LENGTH(REPLACE(l_str_5,' ')) + 1 INTO l_len FROM dual;
            FOR i IN 1..l_len LOOP 
               l_location_2:=l_location_2+1;
         l_location_3:=l_location_3+1;
         IF l_location_1 = l_location_2 THEN 
                  l_flag:=1;
            END IF;
               EXIT WHEN l_location_1 = l_location_2;
            END LOOP;
            IF l_flag = 0 THEN 
         l_location_3:=0;
               SELECT LENGTH(l_str_6)-LENGTH(REPLACE(l_str_6,' ')) + 1 INTO l_len FROM dual;
               FOR i IN 1..l_len LOOP 
                  l_location_2:=l_location_2+1;
      l_location_3:=l_location_3+1;
            IF l_location_1 = l_location_2 THEN 
                     l_flag:=1;
               END IF;
                  EXIT WHEN l_location_1 = l_location_2;
               END LOOP;
         IF l_flag = 0 THEN 
                  l_return:='';
         ELSE 
                  SELECT f_get_sequence_string(l_str_6,' ',l_location_3) INTO l_return FROM dual;   
         END IF;
            ELSE 
               SELECT f_get_sequence_string(l_str_5,' ',l_location_3) INTO l_return FROM dual;
            END IF;
         ELSE 
            SELECT f_get_sequence_string(l_str_4,' ',l_location_3) INTO l_return FROM dual;
         END IF;
      ELSE 
         SELECT f_get_sequence_string(l_str_3,' ',l_location_3) INTO l_return FROM dual;
      END IF;
   END IF;


  
   RETURN l_return;
  end;


  function f_get_pinyin(p_chinese VARCHAR2) return VARCHAR2 is
   l_return  VARCHAR2(4000):='';
   l_tmp  VARCHAR2(200):='';
  BEGIN
   FOR i IN 1..LENGTH(p_chinese) LOOP 
      SELECT f_get_single_pinyin(SUBSTR(p_chinese,i,1)) INTO l_tmp FROM dual;
      l_return:=l_return || ' ' || l_tmp;
   END LOOP;


   IF LENGTH(l_return) > 0 THEN 
      SELECT SUBSTR(l_return,2) INTO l_return FROM dual;
   END IF;


   RETURN l_return;  
  end;


end pinyin;