openoffice 编译依赖关系履历 演示代码 下载#/usr/bin/perl -w sub readline{ print $_[0],"\n"; if (open(FILE1,"Qlist.txt")) { while(<FILE1>) { if($_=~/^$_[0]/) { s/NULL//; s/\n//; close(FILE1); return $_; } } } close(FILE1); return "$_[0] :"; } print "Put in one model:"; $putin=<>; $putin=~s/\n$//; $modellist=&readline($putin); while($modellist=~m/\b(\w+)\b(?! :)/){ my $tmp=&readline($1); $modellist=~s/\b(\w+)\b(?! :)/$tmp/; } if (open(OUTFILE,">OKlist.txt")) { print OUTFILE ($modellist); close(OUTFILE); } Qlist.txt 依赖关系例子 vcl : a b c NULL a : a1 NULL b : b1 NULL c : d NULL a1 : NULL b1 : NULL d : e1 e2 NULL e1 : NULL e2 : NULL oklist.txt 结果 vcl : a : a1 : b : b1 : c : d : e1 : e2 :