求一個(gè)perl應(yīng)用

phiazat

小弟剛?cè)胧珠_始學(xué)perl，摔了不少跟頭，現(xiàn)在老大要我做一個(gè)這樣的perl，要求，對(duì)一個(gè)有 幾千個(gè)表的一個(gè)sql腳本中的表做一些選擇，有的表有用處，有的表沒用處，有用的表的表名我已經(jīng)取出放在一個(gè)txt文件中，但現(xiàn)在需要實(shí)現(xiàn)通過這個(gè)txt文件中的表名來匹配到sql腳本中相關(guān)的創(chuàng)建腳本并輸出到另外一個(gè)文件中 請(qǐng)問如何實(shí)現(xiàn)，謝謝了

[ 本帖最后由 phiazat 于 2009-6-19 22:45 編輯 ]

cobrawgl

你 導(dǎo)出 不成么？

phiazat

樓上的意思是說用toad之類的工具來導(dǎo)出數(shù)據(jù)庫的schema嘛？

cobrawgl

你不就是要那個(gè) create table 的腳本么？不用 perl 也可以吧？

phiazat

表太多了，在toad上選擇起來很麻煩的，我找的眼暈啊，而且還有后續(xù)的constraints,indexes,views之類的腳本，因?yàn)槲倚枰�做一款產(chǎn)品的數(shù)據(jù)庫的安裝文件，腳本需要純靜的，需要做一些處理，所以需要挑選，最好用一個(gè)perl腳本來實(shí)現(xiàn)，這樣容易多了

cobrawgl

先把 create 的找出來，再一個(gè)一個(gè)檢驗(yàn)一下？

m{create\s+table\s+\w+\s+\(.*?\)}mgi;

[ 本帖最后由 cobrawgl 于 2009-6-20 06:50 編輯 ]

phiazat

我的思路是，把所有有用的表的表名放在一個(gè)數(shù)組@tabname中，然后foreach@tabname從@tabname[0]一直取到最后一個(gè)表名，循環(huán)匹配表m{create\s+table\s+\(.*?\)}gi;一只匹配到sql腳本的最后，
現(xiàn)在的問題是：1.我不知道如何控制一個(gè)數(shù)組的開始，結(jié)尾；
                      2.嵌套循環(huán)時(shí)候不知道如何處理，思路沒有想清楚；
                      3.$1 的這樣傳值不知如何操作。

小公貓

數(shù)組的開始結(jié)尾不用關(guān)心，用foreach就可以了
嵌套循環(huán)哪里不清楚？算法清楚程序就清楚