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 :