怎样通过脚本修改tnsnames.ora和listener.ora

现在我想修改通过脚本自动增加一个数据库的服务命名，和在本地服务器的监听程序上增加一个对数据库的连接，监听位置是本地的。

我现在在做一个自动创建数据库的脚本，做法是先用Database Configuration Assistant生成一个创建空库的脚本，再创建一个新的用户，然后再用这个用户创建他需要的表等东西，前面两步都没有问题，但是要创建表之前需要先连接到个这个数据库，所以需要创建这个数据库的服务命名，和配置监听程序，这两步也需要用脚本完成
脚本中直接写这两个ora文件不行吗？
我的想法是，以修改tnsnames.ora为例，先读取文件里面的所有内容，然后把它放入一个设计好的结构数组中，这样修改的时候只要修改数组中的内容就可以了，需要增加新项只要在数组中增加一项就可以了，然后把数组中的内容写回文件就完成了修改。listener.ora 也可以这样处理，但问题是我对pl/sql不熟，也没看过相应的资料。其实这个解决方法主要是两个问题：这个结构怎么设计，需要嵌套吗，结构中需要包含哪些内容，另外一个问题怎么读写文件。希望知道的大侠能给个样例代码。
tnsnames可以直接在文件尾部增加，listener.ora就比较复杂，但9i以及之后版本支持动态注册，也就是说可以不用改listener.ora。
我想问一下bobfang(匆匆过客) ,动态注册怎么实现，可能用脚本吗